[Terra]

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 F:TfileStream;
begin
   ComboBox1.Items.Add(Edit1.Text);
   if not FileExists(Edit1.Text+'.txt') then
showmessage('Нет файла с таким названием! Создаем!!!!')
  F:=TFileStream.Create(Edit1.Text+'.txt',fmCreate);
 else
showmessage('Файл с названием существует!')
end;

Админ: Пользуемся тегами для оформления кода, иначе последуют санкции!