Проблема с SaveDialog

[PUSHkiN]

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
saveDialog1.Title:='Сохранить данные';
if saveDialog1.Execute then
begin
FileNameZ:=SaveDialog1.FileName;
assignFile(Fz,FileNameZ);
rewrite(fz);
end;
for i:=1 to nzap do
begin
Write(fz,sp[i]);
end;
closeFile(fz);
end;

вот пример моего кода, он точно работает проверено...

[dr.Chas]

Сообщение от boostman

Поставил я SaveDialog открываю его в программе и появляется ошибка Cannot create file "". Какие параметры поставить в SaveDialog надо.. Помогите пажалуйста

Описание параметров можно посмотреть здесь http://www.beluch.ru/progr/100comp/8_2.htm