[Kailon]

Ну, если прям совсем просто и в лоб, то:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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;