Не понимаю, как переписать код с memo на StringGrid

unit Unit2; 
 
interface 
 
uses 
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; 
 
type 
TForm2 = class(TForm) 
Memo1: TMemo; 
Button1: TButton; 
Edit1: TEdit; 
Edit2: TEdit; 
procedure Button1Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
 
var 
Form2: TForm2; 
i,j,max:integer; 
mas:array[0..2000] of array[0..2000] of integer; 
vect:array[0..2000] of integer; 
col,row:integer; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm2.Button1Click(Sender: TObject); 
begin 
col:=strtoint(edit1.Text); 
row:=strtoint(edit2.Text); 
memo1.Clear; 
for i:=0 to row-1 do 
begin 
for j:=0 to col-1 do 
begin 
mas[i,j]:=Random(31-10)+10; 
memo1.text:=memo1.text+inttostr(mas[i,j])+' '; 
end; 
memo1.text:=memo1.text+#13#10; 
end; 
 
memo1.text:=memo1.text+#13#10; 
 
for i:=1 to row do 
begin 
max:=mas[i,1]; 
for j:=2 to col do 
if max<mas[i,j] then max:=mas[i,j]; 
vect[i]:=max-mas[i,col]; 
memo1.text:=memo1.text+inttostr(vect[i])+' '; 
end; 
end;