Исключительные ситуации Delphi

[Nevesta_Sira]

Здравствуйте! Подскажите как можно сделать, чтобы текстовый файл создавался, причем имя вводил пользователь. Но если имя повторное, то он выдавал ошибку создания файла через исключительную ситуацию?
Код слздания файла

procedure TForm1.BitBtn4Click(Sender: TObject);
var f:System.Text; //класс текстового файла
begin
 AssignFile(f,Edit8.Text+'.txt');
 Rewrite(f);
 WriteLn(f,'My first file!!!');
 CloseFile(f);
 ShowMessage('Файл создан!');
end;

[_-Re@l-_]

var f:System.Text; //класс текстового файла

Вот это интересно. А просто TextFile вас не устраивает?

[JoLan]

if FileExists(ExtractFilePath(Application.ExeName)+Edit8.Text+'.txt') then MessageDlg('Файл с таким именем уже существует!',mtError,[mbOK],0)

[XeruH]

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

if FileExists(ExtractFilePath(Application.ExeName)+Edit8.Text+'.txt') then MessageDlg('Файл с таким именем уже существует!',mtError,[mbOK],0)

FileExists(ExtractFilePath(Application.ExeName)+Edit8.Text+'.txt') then raise Exception.Create('Такой файл уже существует!');