Delphi算法，求兩數的最小公倍數

Delphi代碼實現求指定兩個數的最小公倍數，你可在如下示的窗口中，輸入數值1和數值2，然後點擊計算按鈕，就可快速算出兩數的最小公倍數是多少，是一個簡單的Delphi數字計算例子，不知道有沒有Delphi愛好者需要，代碼分享：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls, XPMan; 06 type 07   TForm1 = class(TForm) 08     Edit1: TEdit; 09     Edit2: TEdit; 10     Label1: TLabel; 11     Label2: TLabel; 12     Label3: TLabel; 13     Label4: TLabel; 14     Button1: TButton; 15     procedure Button1Click(Sender: TObject); 16     procedure Edit1KeyPress(Sender: TObject; var Key: Char); 17     procedure Edit2KeyPress(Sender: TObject; var Key: Char); 18   private 19     { Private declarations } 20   public 21     { Public declarations } 22   end; 23 var 24   Form1: TForm1; 25   x,c:real; 26   a,b:integer; 27   u:string; 28 implementation 29 {$R *.dfm} 30 procedure TForm1.Button1Click(Sender: TObject); 31 begin 32 x:=1; 33   if (edit1.Text<>'')and(edit2.Text<>'') then 34    begin 35      if (strtoint(edit2.Text)=0) or (strtoint(edit2.Text)=0) then 36       begin 37         showmessage('數值不能為0'); 38       end 39      else 40       begin 41       if strtoint(edit1.Text)>strtoint(edit2.Text) then 42       begin 43           a:=strtoint(edit1.Text); 44           b:=strtoint(edit2.Text); 45       end 46       else 47       begin 48           b:=strtoint(edit1.Text); 49           a:=strtoint(edit2.Text); 50       end; 51          while trunc(x)<>0 do 52           begin 53           x:=(a mod b); 54           a:=b; 55           c:=b; 56           b:=Trunc(x); 57           end; 58         a:=strtoint(edit1.Text); 59         b:=strtoint(edit2.Text); 60         c:=(a*b)/(c); 61         label4.Caption:=inttostr(Trunc(c)); 62        end; 63    end 64   else 65    begin 66       showmessage('請填寫數值1和數值2.') 67    end; 68 end; 69 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 70 begin 71 if not (key in ['0'..'9',#8]) then 72   key:=#0; 73 end; 74 procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); 75 begin 76 if not (key in ['0'..'9',#8]) then 77    key:=#0; 78 end; 79 end.