в чем ошибка? подскажите

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;
 
type
  TForm2 = class(TForm)
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure getdata(arg:string);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure deletecurrent();
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure newrow(n:string;r:integer;town:string);
    procedure Button4Click(Sender: TObject);
    procedure updaterow(ids:string;n:string;r:integer;t:string);
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  type tpost=class
    id:string;
    name:string;
    reit:string;
    town:string;
  end;
var
  Form2: TForm2;
 
implementation
 
uses basas,contnrs;
var kod:string;
list:tobjectlist;
{$R *.dfm}
procedure Tform2.getdata(arg:string);
var obj: tpost; i:integer;
begin
  list.Clear;
  adoquery1.sql.clear;
  adoquery1.sql.add('select name,reiting,town,id_s from s');
  adoquery1.Open;
  while not ADOQuery1.Eof do begin
    obj:=Tpost.Create;
    obj.id:=Adoquery1.FieldValues['id_s'];
    obj.name:=Adoquery1.FieldValues['name'];
    obj.reit:=Adoquery1.FieldValues['reiting'];
    obj.town:=Adoquery1.FieldValues['town'];
    list.Add(obj);
    ADOQuery1.Next;
  end;
  adoquery1.close;
  if list.count=0
  then begin
    kod:='';
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    exit;
  end;
  if arg='prev'
    then begin
      if kod=''
        then begin
          obj:=tpost(list[0]);
          kod:= obj.id;
          edit1.Text:=obj.name;
          edit2.Text:=obj.reit;
          edit3.Text:=obj.town;
        end
        else begin
          for i:=1 to list.count-1 do begin
            obj:=tpost(list[i]);
            if kod=obj.id then
              begin
                obj:=tpost(list[i-1]);
                kod:= obj.id;
                edit1.Text:=obj.name;
                edit2.Text:=obj.reit;
                edit3.Text:=obj.town;
                break;
              end;
          end;
        end;  
    end;
  if arg='next'
  then begin
      if kod=''
        then begin
          obj:=tpost(list[0]);
          kod:= obj.id;
          edit1.Text:=obj.name;
          edit2.Text:=obj.reit;
          edit3.Text:=obj.town;
        end
        else begin
          for i:=0 to list.count-2 do begin
            obj:=tpost(list[i]);
            if kod=obj.id then
              begin
                obj:=tpost(list[i+1]);
                kod:= obj.id;
                edit1.Text:=obj.name;
                edit2.Text:=obj.reit;
                edit3.Text:=obj.town;
                break;
              end;
          end;
        end;
    end;
 
  if arg=''
  then
  begin
    obj:=tpost(list[0]);
    kod:= obj.id;
    edit1.Text:=obj.name;
    edit2.Text:=obj.reit;
    edit3.Text:=obj.town;
  end;
end;
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Show;
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
   list:=TObjectList.Create;
   list.OwnsObjects:=true;
   getdata('');
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
  getdata('next');
  
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
getdata('prev') ;
end;
 
procedure TForm2.deletecurrent;
var n:string;
begin
   n:='delete from s where id_s=''' + kod +''''  ;
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.add(n);
     ADOQuery1.ExecSQL();
     kod:='';
     getdata('');
end;
 
 
procedure TForm2.Button3Click(Sender: TObject);
begin
deletecurrent;
end;
 
procedure TForm2.Button5Click(Sender: TObject);
var i:integer;
begin
  i:=0;
  try
    i:=strtoint(edit2.Text);
  except
  end;
  newrow(edit1.text,i,edit3.text);
  getdata('');
 
end;
procedure Tform2.newrow(n:string;r:integer;town:string);
var maxkod:string;
i:integer;
sql:string;
bbbb:Variant;
begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.add('select max(id_s) as nnn from s ');
  ADOQuery1.Open;
  bbbb:=ADOQuery1.FieldValues['nnn'];
  ADOQuery1.Close;
 
  if bbbb=null
    then maxkod:='S0'
    else maxkod:=bbbb;
 
 
  Delete(maxkod,1,1);
  i:=strtoint(maxkod);
  i:=i+1;
  maxkod:='S'+inttostr(i);
 
  ADOQuery1.SQL.Clear;
  sql:='insert into s (id_s,name,reiting,town) values ('''+maxkod+
    ''','''+n+''','+inttostr(r)+','''+town+''')';
  ADOQuery1.SQL.add(sql);
  ADOQuery1.ExecSQL;
  ADOQuery1.Close;
  kod:=maxkod;
 
end;
procedure Tform2.updaterow(ids:string;n:string;r:integer;t:string);
var
maxkod:string;
i:Integer;
sql:string;
str1:string;
begin
 
  ADOQuery1.SQL.Clear;
  str1:=inttostr(r);
  sql:='update s set name='''+n+''', reiting='+str1+
  ', town='''+t+''' where id_s='''+ids+'''';
  ADOQuery1.SQL.add(sql);
  ADOQuery1.ExecSQL;
  ADOQuery1.Close;
 
end;
procedure TForm2.Button4Click(Sender: TObject);
var i:integer;
begin
  i:=0;
  try
    i:=strtoint(edit2.Text);
  except
  end;
 
  if kod=''
    then newrow(edit1.text,i,edit3.text)
    else updaterow(kod,edit1.text,i,edit3.text);
  getdata('');
end;