procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile; // Файловая переменная
begin
AssignFile(F, 'D:\OutFile.txt'); // Связывание файловой переменной с файлом
try
Append(F); // Если файл есть, то открываем его на добавление данных
except
Rewrite(F); // Если файла нет, то создаём его
end;
Writeln(F, DateTostr(Now) + ' ' + TimeToStr(Now) + ': ' + ComboBox1.Text + ' = ' + ComboBox2.Text); // Пишем информацию в файл
CloseFile(F); // Обязательно закрываем файл
end;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.