Invalid Filename в delphi

[StasyT]

Процедура сохранение в файл. При попытке сохранить выдает ошибку
"Invalid Filename"
В чем может быть проблема?

procedure TForm1.Button6Click(Sender: TObject);   // сохранение
var filesohr:textfile;
begin
if saveDialog1.Execute then

begin
curr:=head;
assignfile(filesohr,savedialog1.filename);
rewrite(filesohr);

while(curr<>nil) do
begin
writeln(filesohr,curr^.fio);
writeln(filesohr,curr^.pit);
writeln(filesohr,curr^.dat);
writeln(filesohr,curr^.usl);
//tek.fio:=curr^.fio;
//tek.pit:=curr^.pit;
//tek.dat:=curr^.dat;
//tek.usl:=curr^.usl;
//writeln(filesohr,curr.tek);
curr:=curr^.next;
end;
closefile(filesohr);
end;
end;

[Stilet]

Ану поставь точку прерывания на assignfile(filesohr,savedialog1.fil ename);
И посмотри что хранится в savedialog1.filename

P.S. В самом коде криминала не вижу.

P.P.S. Еще такой момент:

procedure TForm1.Button6Click(Sender: TObject);   // сохранение
begin
if saveDialog1.Execute then With TStringList.Create begin 
 curr:=head;
 while(curr<>nil) do begin
  Append(curr^.fio);
  Append(curr^.pit);
  Appendcurr^.dat);
  Appendcurr^.usl);
  curr:=curr^.next;
 end;
 SaveToFile(savedialog1.filename);
 Free;
end;

end;

Попробуй так еще.