как то так
var
x,y,z:integer;
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
function nod(const x,y: integer) :integer;
begin
if x<>0 then
nod:=nod(y mod x,x) else nod:=y;
end;
function nok2(const x,y:integer) :integer;
begin
nok2:=((x) div nod(x,y))*y;
end;
function nok3(const x,y,z:integer) :integer;
begin
nok3:=nok2(nok2(x,y),z);
end;
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=nok2(nok2(x,y),z);
x:=strtoint(edit1.Text);
y:=strtoint(edit2.Text);
z:=strtoint(edit3.Text);
label1.Caption:=inttostr(a);
end;
end.