регистрация в делфи

[Таська21]

Здравствуйте, помогите пожалуйста ,как правильно нужно прописывать адрес к блокноту для сохранения пароля, как у меня прописано выдает при сохранении регистрации ошибку : не удается найти указанный файл

procedure TFormRigistr.ButtonSaveClick(Sender: TObject);
var SaveTxt:TStringList;

begin
SaveTxt:= TStringList.Create;
SaveTxt.LoadFromFile(ExtractFilePath(Application.ExeName) + 'RegEdit.txt');
if (EditNewLogin.Text <> '') and (EditNewPassword.Text <> '') then
begin
SaveTxt.Add(EditNewLogin.Text + ' ' + EditNewPassword.Text);
 SaveTxt.SaveToFile(ExtractFilePath(Application.ExeName) + 'RegEdit.txt');
 end;
end;

end.

[Stilet]

RegEdit.txt

А он точно существует?
Делай лучше так:

var f:string;
...
f:=ExtractFilePath(Application.ExeName) + 'RegEdit.txt';
if FileExists(f) then SaveTxt.LoadFromFile(f);
...
SaveTxt.SaveToFile(f);
...

[Таська21]

да, существует,ну я ж не совсем блондинка

Спасибо за помощь

[Stilet]

ну я ж не совсем блондинка

Ога, ну и Делфи не совсем паскаль