Подскажите

[upsi]

Есть файл с расширением .dat созданный таким образом:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
vs=record
s:real;
d:string[10];
end;
firma=record
nom:string[40];
fio:string[50];
adr:string[50];
kol:string[20];
metraj:string[20];
visota,raion,stoimost:string[20];
end;

TForm3 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var sk:file of firma; buf1:firma;
i:integer; n:integer;
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button2Click(Sender: TObject);
begin
edit1.Clear; edit2.Clear;
edit3.Clear; edit4.Clear;
edit5.Clear; edit6.Clear;
close;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
assignfile(sk,'firma.dat');
{$i-}reset(sk);{$i+}
if ioresult<>0 then rewrite(sk)
else
begin
reset(sk);
seek(sk,filesize(sk));
end;
buf1.raion:=edit5.text;
buf1.stoimost:=edit6.text;
buf1.adr:=edit1.text;
buf1.kol:=edit2.text;
buf1.metraj:=edit3.text;
buf1.visota:=edit4.text;
write(sk,buf1);
closefile(sk);
edit1.Clear;edit2.Clear;
edit3.Clear; edit4.Clear;
edit5.Clear; edit6.Clear;
form3.Visible:=false;
end;
end.

Каким образом можно из него извлечь данные в виде таблицы?
Помогите или подскажите как это сделать. Буду благодарен очень.

[zetrix]

read(sk,buf1);

А потом все пункты buf1

• nom:string[40];
• fio:string[50];
• adr:string[50];
• kol:string[20];
• metraj:string[20];
• visota,raion,stoimost:string[20];

загоняем в стринггрид.
Я что-то не понял... в чём вопрос? Как именно присвоить данные Гриду? Это в любой книжке написано (В библии точно есть - см. мою подпись.)

[upsi]

Спасибо за подсказку.