Как записать максимальный ключ из таблицы в мемо?

[REztor]

Тут только выделение ключа в таблице, как записать его в мемо?

procedure TForm1.FindMaxKey1Click(Sender: TObject);
var Tr:TgridRect;k:integer;
begin
if mytab.a=nil then
begin showmessage('Вы забыли создать список');
exit end;
k:=mytab.max;
 with agrid do  begin
 with Tr do begin
 top:=k+1;bottom:=k+1;
 left:=0;right:=3;end;
 Selection:=Tr;
  end;  end;