Colocando as horas do pc em um dbedit

Coloque um componente
timer no formulario
e um dbedit

Clique no Dbedit pra ser criado a procedure
ai digite entre o

begin

e

end; assim => dbedit.Text:= timetostr(now); vai ficar igual abaixo ao compilar ver a hora do sistema no componente

procedure Tcad_advogado1.Timer1Timer(Sender: TObject);
begin
dbedit.Text:= timetostr(now);
end;