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

procedure TfrmKgV.btnBerechnenClick(Sender: TObject);
var a,b,c,d : int64;
   s : string;
begin
  a := strtoint(edtZahl1.Text);
  b := strtoint(edtZahl2.Text);
  d:=a;
  repeat
    c := a mod b;
    if c > 0 then a := a+d;
  until c = 0;
  str(a,s);
  pnlausgabe.Caption := s;
end;