Кратные числа

[ара]

Помогите, пож., может у кого есть исходник для решения это задачи!
Среди заданных целых чисел k, l, m найти пары кратных.
Или дайте советы по написанию

[RSLoader]

procedure TForm1.Button1Click(Sender: TObject);
var
  k,l,m:Integer;
procedure Krat(a,b:Integer);
begin
  if a mod b = 0 then Label1.Caption:=Label1.Caption+IntToStr(a)+' кратно '+IntToStr(b)+#13;
  if b mod a = 0 then Label1.Caption:=Label1.Caption+IntToStr(b)+' кратно '+IntToStr(a)+#13;
end;
begin
  k:=StrToInt(Edit1.Text);
  l:=StrToInt(Edit2.Text);
  m:=StrToInt(Edit3.Text);
  Krat(k,l);
  Krat(k,m);
  Krat(l,m);
end;