[chainik]

Edit1,Edit2- исходные числа
Edit3- максим общий делитель

Код:

uses Math;

{---------------------------------------------------------
функция возвращает макс общий делитель
----------------------------------------------------------}
function GetMaxDiv(x1,x2:integer):integer;
begin
if (x1=0) or (x2=0) then Result:=-1
else
    begin
    Result:=min(x1,x2);
    while (x1 mod Result <> 0) or (x2 mod Result <> 0) do
                dec(Result)
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(GetMaxDiv(StrToInt(Edit1.Text),StrToInt(Edit2.Text)));
end;