[delphi]Problem z plikiem txt

procedure TForm1.Button3Click(Sender: TObject);
var cookie,poczekalnia : TextFile;
var x,linie,yesno,i,y,hPoczekalnia : Integer;
var liniaCh : String;
var slowa : array of String;
var c : Char;
begin
linie := 0;
x := 0;
AssignFile(cookie,GetCurrentDir + '\cookies.txt');
Reset(cookie);
//policz ile linii i przygotuj tablicę
while eof(cookie) do
 begin
 Read(cookie,c);
 if c = PChar(eoln(cookie)) then linie := linie + 1;
 end;
SetLength(slowa,linie);
CloseFile(cookie);
Reset(cookie);
while eof(cookie) do
 begin
 Readln(cookie,liniaCh);
 slowa[x] := liniaCh;
 x := x + 1;
 end;
Application.MessageBox('Tablica zapełniona','Oslocookie',MB_OK or MB_ICONINFORMATION);
CloseFile(cookie);
//wyodrębnij i zapisz poczekalnię do pliku
AssignFile(poczekalnia,GetCurrentDir + '\poczekalnia.txt');
if not FileExists(GetCurrentDir + '\poczekalnia.txt') then
 begin
 hPoczekalnia := FileOpen(GetCurrentDir + '\poczekalnia.txt',fmOpenWrite);
 i := 0;
  while i < x do
   begin
   y := AnsiPos('www.osloskop.net',slowa[i]);
   if y <> 0 then
	begin
	Label2.Caption := slowa[i];
	FileWrite(hPoczekalnia,slowa[i],Length(slowa[i]));
	Label2.Caption := slowa[i];
	break;
	end;
   i := i + 1;
   end;
 Application.MessageBox('Zczytano poczekalnię','Oslocookie',MB_OK or MB_ICONINFORMATION);
 FileClose(hPoczekalnia);
 end
else
 begin
 yesno := Application.MessageBox('Czy utworzyć nowy plik?','Oslocookie',MB_YESNO or MB_ICONQUESTION);
 if yesno = ID_YES then
  begin
  hPoczekalnia := FileOpen(GetCurrentDir + '\poczekalnia.txt',fmCreate);
  i := 0;
  while i < x do
   begin
   y := AnsiPos('www.osloskop.net',slowa[i]);
   if y <> 0 then
	begin
	FileWrite(hPoczekalnia,slowa[i],Length(slowa[i]));
	Label2.Caption := slowa[i];
	break;
	end;
   i := i + 1;
   end;
  Application.MessageBox('Zczytano poczekalnię','Oslocookie',MB_OK or MB_ICONINFORMATION);
  FileClose(hPoczekalnia);
  end
 else
  begin
  Application.MessageBox('Ponów próbę!','Oslocookie',MB_OK or MB_ICONSTOP);
  end;
 end;

end;