Random dosyalar-Hata

[Laz61]

Arkadaslar merhaba

Asagiya yapistirdigim kod, silme gerceklestikten sonra, yeni kayit eklemede veya programdan cikarken ''e/a 103'' hatasi veriyor.
Bir türlü cözemedim. Ilgilenirseniz sevinirim.

Tsk. Ederim

var
Form1: TForm1;
Random_Dosya:FILE OF Kayit_tipi;
Kayit: Kayit_tipi;
Gecici_dosya:File of Kayit_tipi;
implementation

procedure TForm1.SpeedButton5Click(Sender: TObject);
var
Kayit_No:Integer;
begin
AssignFile(Gecici_dosya,'temp.dat');
ReWrite(Gecici_dosya);
For Kayit_No:=0 To FileSize(Random_dosya)-1 do
begin
Seek(Random_dosya,Kayit_No);
Read(Random_dosya,Kayit);
If Kayit.AdS<>Edit3.Text Then
Write(Gecici_dosya,Kayit)
end;
CloseFile(Random_dosya);
CloseFile(Gecici_dosya);
DeleteFile('adres.dat');
RenameFile('temp.dat','adres.dat');
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
RichEdit1.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit11.Text:='';
Edit12.Text:='';
Edit13.Text:='';
Edit14.Text:='';
Kayit.UyeN:=Edit1.Text;
Kayit.TrH:=Edit2.Text;
Kayit.AdS:=Edit3.Text;
Kayit.Grv:=Edit4.Text;
Kayit.AyN:=RichEdit1.Text;
Kayit.UyA:=Edit6.Text;
Kayit.Cnsyt:=Edit7.Text;
Kayit.DyT:=Edit8.Text;
Kayit.MhC:=Edit9.Text;
Kayit.EvA:=Edit10.Text;
Kayit.SpK:=Edit11.Text;
Kayit.TeC:=Edit12.Text;
Kayit.Ilt:=Edit13.Text;
Kayit.WebA:=Edit14.Text;
end;
end.

[orhancc]

close işlemlerini try finally bloğunun finally kısmında yap o işlemlerden önce hata verip işlemi kesiyor olabilir, bu hata dosya kullanıldığı için gelir.

[Laz61]

Merhaba arkadaslar

Orhancc denedim olmadi, ayni hatayi yine veriyor.

Tsk Ederim

[Laz61]

Slm. aleykum

Sorunum cözümü
Tsk.eEderim

procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(Random_dosya, 'c:\Karadeniz\adres.dat');
{$I+}
Reset(Random_dosya);
{$I-}
If IORESULT<> 0 then
Rewrite(Random_dosya);
end;