Если надо однократно занести текст и время, то
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := ComboBox1.Text + TimeToStr(Now);
end;
Если нужно, чтобы время постоянно обновлялось, то поставьте на форму TTimer с интервалом 1000 мс и вот с таким обработчиком события OnTimer:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := ComboBox1.Text + TimeToStr(Now);
end;