1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.Button8Click(Sender: TObject);
var a,b,c,d,e : integer;
begin
        a := StrToInt(Edit1.Text);
        b := StrToInt(Edit2.Text);
           if a < b then
                begin
                 for c := b  downto 0 do
                   if (c mod a = 0) and (c mod b = 0) then
                   begin
                   Label1.Caption := IntToStr(c);
                   break;
                   end
           else
                 if a > b then
                  begin
                   for d := b downto 1 do
                   if (d mod a = 0) and (d mod b = 0) then
                   begin
                  Label1.Caption := IntToStr (d);
                  break;
                   end
                   end
                end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
  var
    a,b,c: Integer;
begin
  a := StrToInt(Edit1.Text);
  b := StrToInt(Edit2.Text);
  if (b < a) then begin
    c := a;
    a := b;
    b := c;
  end;
  c := b;
  while (((a mod c) <> 0) or ((b mod c) <> 0)) do
    Dec(c);
  Label1.Caption := IntToStr(c);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

{$APPTYPE CONSOLE}
program TestGCD;

// Greatest Common Divisor
function GCD(a, b: LongWord): LongWord; assembler;
asm
  MOV EAX, a    // a => EAX
  MOV EBX, b    // b => EBX
  CMP EBX, EAX  // EBX > EAX ?
  JB @@Again
  XCHG EAX, EBX // EAX <=> EBX
@@Again:
  OR EBX, EBX   // EBX = 0 ?
  JZ @@OK
  XOR EDX, EDX  // EDX := 0
  DIV EBX       // EDX:EAX / EBX => EAX\EDX
  MOV EAX, EBX  // EBX => EAX
  MOV EBX, EDX  // EDX => EBX
  JMP @@Again
@@OK:           
  PUSH EAX
  POP AX        // EAX => DX:AX
  POP DX        // Result := DX:AX
end;

begin
  WriteLn(GCD(1836311903, 1134903170)) // worst case: two consecutive huge Fibonacci numbers
end.