Метод класса

[REztor]

procedure TForm1.Findmaxkey1Click(Sender: TObject);
var max,i:integer;s:string;  ss:List;
begin
{$o-}    max:=0;
 for i:=0 to agrid.RowCount-1 do begin
 if StrToIntDef(aGrid.Cells[2,i],0)>max then begin
 max:=StrToInt(aGrid.Cells[2,i]);
 agrid.Row:=i;
 end;
end;
 s:=agrid.Cells[1,agrid.row];

 ss:=List.create;
 ss:=mytab.first(s[1]);
 if ss=nil then begin showmessage('ошибка');
  exit end;
  ss.showlist(memo1);

end;

Помогите переписать эту процедуру в функцию метода класса

[VVM]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    procedure FindMaxKey;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.FindMaxKey;
var
  max, i: integer;
  s: string;
  ss: List;
begin
{$o-}
  max := 0;
  for i := 0 to agrid.RowCount - 1 do
  begin
    if StrToIntDef(aGrid.Cells[2, i], 0) > max then
    begin
      max := StrToInt(aGrid.Cells[2,i]);
      agrid.Row:=i;
    end;
  end;
  s := agrid.Cells[1, agrid.row];
  ss := List.create;
  ss := mytab.first(s[1]);
  if ss = nil then
  begin
    showmessage('ошибка');
    exit
  end;
  ss.showlist(memo1);
end;

end.

Ошибки не исправлял. Если нужен именно метод класса, а не метод экземпляра класса, то перед словом procedure нужно поставить слово class (class procedure).

[REztor]

 function tabl.max:integer;
 var i,mx,imax:integer;
 begin
 mx:=a[0].k;imax:=0;
 for i:=0 to n-1 do
 if a[i].k>mx then begin
 mx:=a[i].k;imax:=i end;
 result:=imax;
 end;

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;

Получилось так