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

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
StringGrid1.Cells[0,1]:='Аршавин';
StringGrid1.Cells[0,0]:='Данные';
StringGrid1.Cells[0,2]:='Жирков';
StringGrid1.Cells[0,3]:='Измайлов';
StringGrid1.Cells[0,4]:='Сычёв';
StringGrid1.Cells[1,0]:='Гражданство';
StringGrid1.Cells[2,0]:='происхождение';
StringGrid1.Cells[3,0]:='вид спорта';
StringGrid1.Cells[4,0]:='Клуб';
StringGrid1.Cells[5,0]:='Рекорд';
StringGrid1.Cells[1,1]:='Русский';
StringGrid1.Cells[1,2]:='Еврей';
StringGrid1.Cells[1,3]:='Хохол';
StringGrid1.Cells[1,4]:='Чечен';
StringGrid1.Cells[2,1]:='Калмыкия';
StringGrid1.Cells[2,2]:='Украина';
StringGrid1.Cells[2,3]:='Египет';
StringGrid1.Cells[2,4]:='Имираты';
StringGrid1.Cells[3,1]:='Хоккей';
StringGrid1.Cells[3,2]:='Футбол';
StringGrid1.Cells[3,3]:='Волейбол';
StringGrid1.Cells[3,4]:='Теннис';
StringGrid1.Cells[4,1]:='ЦСка';
StringGrid1.Cells[4,2]:='Локомотив';
StringGrid1.Cells[4,3]:='Шинник';
StringGrid1.Cells[4,4]:='Спартак';
StringGrid1.Cells[5,1]:='10';
StringGrid1.Cells[5,2]:='12';
StringGrid1.Cells[5,3]:='21';
StringGrid1.Cells[5,4]:='48';
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Menus;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure StringGrid1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  type
  info=record nasv,ras,adrtel,spec,usl,sobs,vrrab:string[50];
  end;
 
var
  Form1: TForm1;
  i:byte;
   f:file of info;
   r:info;
   N:integer;
implementation
 
{$R *.dfm}
 
 
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
 stringgrid1.Cells[0,0]:='         №';
 stringgrid1.Cells[1,0]:='    Номер рейса';
 stringgrid1.Cells[2,0]:='           Пункт отправления';
 stringgrid1.Cells[3,0]:='    Конечный пункт ';
 stringgrid1.Cells[4,0]:='   Кол-во свободных мест';
 stringgrid1.Cells[5,0]:='   Время в дороге( в мин.)' ;
 stringgrid1.Cells[6,0]:='   Стоимость билета(в руб.) ';
 
 stringgrid1.Cells[0,1]:='        1';
 stringgrid1.Cells[0,2]:='        2';
 stringgrid1.Cells[0,3]:='        3';
 stringgrid1.Cells[0,4]:='        4';
 stringgrid1.Cells[0,5]:='        5';
 stringgrid1.Cells[0,6]:='        6';
 stringgrid1.Cells[0,7]:='        7';
 stringgrid1.Cells[0,8]:='        8';
 
stringgrid1.Cells[1,1]:='407';
stringgrid1.Cells[1,2]:='489';
stringgrid1.Cells[1,3]:='768';
stringgrid1.Cells[1,4]:='432';
stringgrid1.Cells[1,5]:='487';
stringgrid1.Cells[1,6]:='421';
stringgrid1.Cells[1,7]:='559';
 
stringgrid1.Cells[2,1]:='Грязи ';
stringgrid1.Cells[2,2]:='Липецк';
stringgrid1.Cells[2,3]:='Воронеж';
stringgrid1.Cells[2,4]:='Тамбов';
stringgrid1.Cells[2,5]:='Грязи';
stringgrid1.Cells[2,6]:='Елец';
stringgrid1.Cells[2,7]:='Липецк';
 
stringgrid1.Cells[3,1]:='Липецк';
stringgrid1.Cells[3,2]:='Добринка';
stringgrid1.Cells[3,3]:='Москва';
stringgrid1.Cells[3,4]:='Тула';
stringgrid1.Cells[3,5]:='Елец';
stringgrid1.Cells[3,6]:='Прохоровка';
stringgrid1.Cells[3,7]:='Лебедянь';
 
 
 
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  for i:=1 to 7 do with stringgrid1 do begin
Cells[6,i]:=floattostr((strtofloat(Cells[4,i])+strtofloat(Cells[5,i]))/ 3);
 
  end;
end;
 
procedure TForm1.N6Click(Sender: TObject);
 var i:integer;
begin
 if SaveDialog1.Execute then
begin
AssignFile(F,SaveDialog1.FileName);
Rewrite(F);
i:=1;
while stringGrid1.Cells[3,i]<>'' do
begin
r.nasv:=stringGrid1.Cells[0,i];
r.ras:=stringGrid1.Cells[1,i];
r.adrtel:=stringGrid1.Cells[2,i];
r.spec:=stringGrid1.Cells[3,i];
r.usl:=stringGrid1.Cells[4,i];
r.sobs:=stringGrid1.Cells[5,i];
r.vrrab:=stringGrid1.Cells[6,i];
write(F,r);
i:=i+1
end;
closeFile(F)
end
 
end;
 
procedure TForm1.N7Click(Sender: TObject);
var i:integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(F,OpenDialog1.FileName);
Reset(F);
N:=0;
while not eof(f) do
begin
read(F,r);
stringGrid1.Cells[0,N+1]:=r.nasv;
stringGrid1.Cells[1,N+1]:=r.ras;
stringGrid1.Cells[2,N+1]:=r.adrtel;
stringGrid1.Cells[3,N+1]:=r.spec;
stringGrid1.Cells[4,N+1]:=r.usl;
stringGrid1.Cells[5,N+1]:=r.sobs;
stringGrid1.Cells[6,N+1]:=r.vrrab;
N:=N+1
end;
closeFile(F);
end
end;
 
procedure TForm1.N8Click(Sender: TObject);
begin
 close;
end;
 
end.

procedure TForm1.Edit1Change(Sender: TObject);
var
begin
end;
end.

with StringGrid1 do
    S:=Cells[Col, Row];