pegar a hora do micro??

private
   { Private declarations }
   procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;
.
.
.
procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
        [b]//aqui voce coloca onde salvar a hora[/b]
        Msg.Result := 1; //permite a continuidade do desligamento
end;

var
  TempoInicial, TempoFinal, Intervalo: Integer
begin
  TempoInicial := GetTickCount;
  ...
  // código a ser executado
  ...
  TempoFinal := GetTickCount;
  Intervalo := TempoFinal - TempoInicial;
end. 

procedure frmMain.LerRegistro;
const
Raiz : String = ?Software\Programa´;
var
Registro : TRegistry;
begin
// Chama o construtor do objeto
Registro := TRegistry.Create;
with Registro do
begin
// Somente abre se a chave existir
if OpenKey (Raiz, False) then
// Envia as informações ao form, vendo se os valores existem, primeiramente...
if ValueExists (´Largura´) then
Width := ReadInteger (´Largura´);
if ValueExists (´Altura´) then
Height := ReadInteger (´Altura´);
if ValueExists (´Esquerda´) then
Left := ReadInteger (´Esquerda´);
if ValueExists (´Topo´) then
Top := ReadInteger (´Topo´);
// Envia as informações para as caixas Abrir e Salvar.
OpenDialog1.InitialDir := ReadString (´Abrir Inicial´);
SaveDialog1.InitialDir := ReadString (´Salvar Inicial´);
// Fecha a chave e o objeto
Registro.CloseKey;
Registro.Free;
end;