Retorna a hora corrente

Function Time: TDateTime;
Retorna a hora corrente
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'The time is ' + TimeToStr(Time);
end;