Обработка файловых структур данных

[Any13]

Подскажите, что делать. Сохраняю в программе файл с расширением dat, потом нажимаю октрыть в этой же программке, а она не видит этот файл. Вот текст программы.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Grids;

type
TForm1 = class(TForm)
Button4: TButton;
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
StringGrid1: TStringGrid;
Button2: TButton;
Button1: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
LabeledEdit3: TLabeledEdit;
LabeledEdit5: TLabeledEdit;
StringGrid2: TStringGrid;
Label1: TLabel;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var n,m,xn,xk,i,j:integer;
Ssr:real;
x:array of array of integer;
begin
randomize;
n:=strToInt(LabeledEdit2.Text);
m:=strToInt(LabeledEdit1.Text);
xn:=strToInt(LabeledEdit3.Text);
xk:=strToInt(LabeledEdit5.Text);
StringGrid1.RowCount:=n;
StringGrid2.RowCount:=n;
StringGrid1.ColCount:=m;
Setlength(x,n,m);
for i:=0 to n-1 do
begin
Ssr:=0;
for j:=0 to m-1 do
Begin
x[i,j]:=random(xk-xn+1)+xn;

Ssr:=Ssr+x[i,j];
end;
Ssr:=Ssr/m;
StringGrid2.Cells[0,i]:=FormatFloat('0.00',Ssr);
end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;

procedure TForm1.Button4Click(Sender: TObject);

var F1:TextFile;
i,j:integer;
begin
if SaveDialog1.Execute then
begin
AssignFile(f1,SaveDialog1.FileName+ '.dat');
Rewrite(f1);
with StringGrid1 do
for i:=0 to RowCount do
begin
for J:=0 to ColCount do
Write(f1,Cells[j,i]+' ');
writeln(f1);
end;
CloseFile(f1);
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var F1:TextFile;
i,j:integer;
s:char;
a:integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f1,OpenDialog1.FileName) ;
Reset(f1);
j:=0;
while not(SeekEof(f1)) do
begin
i:=0;
while not(SeekEof(f1)) do
begin
read(f1,a);
StringGrid1.Cells[j,i]:=IntToStr(a);
i:=i+1;
end;
readln(f1);
j:=j+1;
end;
CloseFile(f1);
LabeledEdit2.Text:=IntToStr(i);
LabeledEdit1.Text:=IntToStr(j);
end;
end;
end.

[Grag]

И что же это такое???

while not(SeekEof(f1)) do

А это?

read(f1,a);
StringGrid1.Cells[j,i]:=IntToStr(a);

если записываешь в файл как

for J:=0 to ColCount do
Write(f1,Cells[j,i]+' ');

Кроме того работаешь ты со StringGrid и файловую переменную определяешь как var F1:TextFile; т.е. файл то текстовый