Rumus Perkalian 1-10

procedure TForm2.Button1Click(Sender: TObject);
var i,j,k : integer ;
begin
Memo1.Clear ;
for I := 1 to 10 do begin

for j := 1 to 10 do begin
k := j*i ;
Memo1.Lines.Add(IntToStr(j)+' x '+IntToStr(i) +' = '+IntToStr(k) ) ;
end;
Memo1.Lines.Add('') ;
Memo1.Lines.Add('') ;


end;

end;