Как сделать программу которая бы записывала на диск txt-файл)*
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
Это очень просто:
Пишем програмный код к кнопке (Button:TButton), при нажатии которой
на диск С:\ записывался бы файл hello.txt 
-----------------------------------------------------------------------------------------------------------------
procedure TForm1.Button1(Sender: TObject);
Var f:TextFile;
begin
AssignFile(f,'C:\hello.txt');
Rewrite(f,'Привет');
CloseFile(f);
end;

end.
-----------------------------------------------------------------------------------------------------------------
В данном случае TextFile (текстовый документ или txt-файл) обозначен
буквой "f" 
В функции AssignFile прописывается путь, куда будет записан txt-файл
hello.txt в данном случае на C:\
Функция Rewrite позволяет вводить текст который вы хотите увидеть
в вашем текстовом документе.
------------------------------------------------------------------------------------------------------------------
)* - Эта программа уже сделана мной, и вы можете подгрузить её саму и
её проект на моём сайте по адресу:
http://www.kudruavtsev.narod.ru/copier.html

Автор программы, идеи и текста: Кудрявцев Юра (PAYBACK co. #2000)

Internet: http://www.kudruavtsev.narod.ru
Mail-me: backpayback_yura@mail.ru