Как создать txt файл в Дельфи?

[quarty]

Как сделать чтоб при нажатии кнопки в задонном мне пути создавался txt файл с заданным названием?

[Пепел Феникса]

ЯП какой у вас?

[dmitriegorovih]

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.SaveToFile('c:\1.txt');
end;

можно так

[Roof]

Язык, как я понял, делфи.
Если просто с кнопкой, без дополнительных VCL компонентов, то вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile; // объявление файловой переменной
  St: string; // строковая переменная
  i: Integer; //счетчик для цикла
begin
  St := 'c:\1test.txt'; //полный путь файла и его имя
  AssignFile(F, St);// привязка названия файла к файловой переменной 
  //создаем файл, если его нету. И открывает файл для перезаписи.
  //Если файл не существует, то он будет создан.
  //Если файл уже существует, содержание будет потеряно, и новые данные добавятся в начало.
  Rewrite(F);

  for i := 0 to 5 do
    Writeln(F, i); //записываем числа в файл

  CloseFile(F); //закрываем файл
end;

[quarty]

dmitriegorovih,
Спасибо