Системное время

[Demien]

Подскажите пожалуйста: как определить системное время?
Необходимо в формате чч:мм:сс

[IT-man]

 var Time:Tdatetime;
begin
Time:=now();
label1.Caption:=FormatDatetime('hh:mm:ss',Time);
end;

[Demien]

Спаибо за помощь!
Если можно - еще 2 вопроса (чтоб темы отдельные не создавать)

1: Как сделать, чтоб программа запускалась сразу в трей (TrayIcon уже подключен и работает!)?

2: В ListBox постоянно добавляются строки. Они добавляются внизу и по заполнению приходится вручную прокручикать к последнии строкам.
Как сделать чтоб строки появлялись сверху, либо ListBox прокручивался к последнему сообщению при его появлении?

[IT-man]

Добавить новые строки в TListBox с прокруткой до конца

procedure addmsg(str: string);
begin
  if str <> '' then
  begin
    ListBox.Items.Add(str);
    ListBox.Perform(LB_SETTOPINDEX, Pred(ListBox.Items.Count), 0);
  end;
end;

[Demien]

Огромное спасибо!!!
Работает!!!

А как на счет запуска приложения сразу в трей? ))

[Ntlegend]

при старте приложения сразу рисуй иконку в трее.. а главную форму сделай скрытой..

[Demien]

Иконка рисуется! Как скрыть приложение?

[Stilet]

Visible:=false например...
Или Application.ShowMainForm:=false