Поиск данных в StringGrid

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Menus, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    MainMenu: TMainMenu;
    Tab: TStringGrid;
    OpenBase: TOpenDialog;
    SaveBase: TSaveDialog;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Button1: TButton;
    N5: TMenuItem;
    Image1: TImage;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure TabSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure TabKeyPress(Sender: TObject; var Key: Char);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
 
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Tab.Cells[0,0]:='Номер';
  Tab.Cells[1,0]:='Авиакомпания';
  Tab.Cells[2,0]:='Номер рейса';
  Tab.Cells[3,0]:='Дата';
  Tab.Cells[4,0]:='Время';
    Tab.Cells[0,1]:='1';
    Tab.Cells[0,2]:='2';
    Tab.Cells[0,3]:='3';
    Tab.Cells[0,4]:='4';
    Tab.Cells[0,5]:='5';
    Tab.Cells[0,6]:='6';
    Tab.Cells[0,7]:='7';
    Tab.Cells[0,8]:='8';
    Tab.Cells[0,9]:='9';
    Tab.Cells[0,10]:='10';
    Tab.Cells[0,11]:='11';
    Tab.Cells[0,12]:='12';
    Tab.Cells[0,13]:='13';
    Tab.Cells[0,14]:='14';
    Tab.Cells[0,15]:='15';
 
 
end;
 
procedure TForm1.N4Click(Sender: TObject);
begin
  Application.Terminate;
end;
 
procedure TForm1.TabSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
  var PrevID,newId:integer;
begin
  if (ARow+1)=tab.RowCount then
  with tab do  begin
                RowCount:=RowCount+1;
                PrevID:=StrToInt(Cells[0,RowCount-2]);
                NewID:=PrevID+1;
                Cells[0,RowCount-1]:=IntToStr(newId);
               end;
end;
 
procedure TForm1.TabKeyPress(Sender: TObject; var Key: Char);
begin
  if (not(Key in ['А'..'я'])) and (not(Key in['1'..'9'])) and (Key<>#8) then key:=#0;
end;
 
procedure TForm1.N3Click(Sender: TObject);
var f:TextFile;
i,j:Integer;
buffer:string;
begin
 if SaveBase.Execute then
  begin
    AssignFile(f, SaveBase.FileName);
    Rewrite(f);
    buffer:='RowCount='+IntToStr(tab.RowCount)+' ';
    buffer:=buffer+'ColWidths=';
      for i:=1 to 4 do
                      begin
                        buffer:=buffer+inttostr(tab.colwidths[i])+',';
                      end;
    Writeln(f,buffer);
    buffer:='';
 with tab do       begin
                    for i:=1 to (RowCount-1) do
                      begin
                        for j:=0 to 4 do
                          begin
                            buffer:=buffer+Cells[j,0]+'='+cells[j,i]+' ';
                          end;
                        Writeln(f,buffer);
                        buffer:='';
                      end;
                   end;
    CloseFile(f);
  end
 
end;
 
procedure TForm1.N2Click(Sender: TObject);
var f:TextFile;
buffer,OneString:string;
i,j:integer;
begin
 if OpenBase.Execute then
  begin
    AssignFile(f,OpenBase.filename);
    Reset(f);
    Readln(f,buffer);
    OneString:=Copy(buffer,Pos('=',buffer)+1,Pos(' ',buffer)-pos('=',buffer)-1);
    Tab.RowCount:=StrToInt(OneString);
    Delete(buffer,1,Pos(' ',buffer));
    Delete(buffer,1,Pos('=',buffer));
      for i:= 1 to 4 do
        begin
          OneString:=Copy(buffer,1,Pos(',',buffer)-1);
          Delete(buffer,1,Pos(',',buffer));
          Tab.ColWidths[i]:=StrToInt(OneString);
        end;
            begin
            i:=0;
             repeat
               Inc(i);
               Readln(f,buffer);
                for j:=0 to 4 do
                  begin
                    OneString:=Copy(buffer,Pos('=',buffer)+1,Pos(' ',buffer)-Pos('=',buffer)-1);//помещаем значение первого столбца в OneString
                    Delete(buffer,1,Pos(' ',buffer));
                    tab.Cells[j,i]:=OneString;
                  end;
             until Eof(f)
            end;
    CloseFile(f);
  end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('При нажатии на эту кнопку должна происходить процедура очищения таблицы');
end;
 
end.

function TForm1.SearchInGridBySample(Grid: TStringGrid, ColNdx: integer, Sample: string, bPartial: boolean): boolan;
var
  i,r: integer;  
begin
  r := -1;
  with Grid do
     for i := FixedRow to RowCount-1 do
       begin
         if (not bPartial and (Cells[i,ColNdx] = Sample)) or
            (bPartial and (Pos(Sample,Cells[i,ColNdx]) > 0)) then
           begin 
            r := i;
            break;            
           end;
       end; 
  if r>-1 then Grid.Row := i;
  result := (r>-1);
end;