procedure TForm1.Button1Click(Sender: TObject);
var HoraIni, HoraFin : TSystemTime;
begin
DecodeTime(Now, HoraIni.wHour, HoraIni.wMinute, HoraIni.wSecond,
HoraIni.wMilliseconds);
//Coloque aqui o codigo do seu processo
DecodeTime(Now, HoraFin.wHour, HoraFin.wMinute, HoraFin.wSecond,
HoraFin.wMilliseconds);
{HoraIni.wHour, HoraIni.wMinute, HoraIni.wSecond, HoraIni.wMilliseconds
são do tipo Integer. Coloque aqui um algoritmo pra verificar a diferença
entre HoraFin e HoraIni}
end;
__________________________________________________
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
