Копирование текста в файл

[bookkc]

Нужна помощ, какой командой можно скопировать текст в Delphi в определённый файл. Например я хочу при нажатии кнопки скопировать текст в папку /data/1.txt Напишите пример как это можно осуществить

Заранее спасибо

[Daramant]

Скопировать откуда?
Можно так:

var
  f: TFileStream;
  FileName: String;
begin
  FileName := 'C:\data.txt';
  f := TFileStream.Create(FileName, fmCreate);
  try
    // пишем данные
    f.Write();
  finally
    f.Free;
  end;

[DeKot]

Eсли текст в Edit

Form1.Edit1.Text.SaveToFile('\data\1.txt');

Для Memo :

Form1.Memo1.Lines.SaveToFile('\data\1.txt');