Exatidão dessa é muito difícil quando se tem uma interface gráfica pouco otimizada(interface de componentes), as que lhe permitiria ter uma exatidão dessas são apenas aquelas que tem aceleração gráfica e consomem menos tempo de processador para a parte visual.

Uma maneira de aperfeiçoar a precisão é usando thread, assim você teria no mínimo um processamento exclusivo para a obtenção do intervalo desejado.

Abraços.

FrmPrincipal.Memo1.Lines.Add(FormatDateTime(’hh:mm:ss:zzz’, now));

Tem outra coisa para me sugerir?

Atualmente estou desenvolvendo um objeto para comunicacao.
Dentro desse objeto tenho outros que sao criados((parente).
Voce sabe como faco para que o identifique como por exemplo num formulario (Objeto.Objeto.Objeto)

Ex: form1.novoobjeto.novoObjeto

Veja que no começo do artigo eu informo que o 2 parametro da API SetTimer é indicada pelo programador, e o mesmo faz o uso como necessário entendendo que o parametro é númerico de tamanho 4 (ex: integer, cardinal, longint, pointer e outros).

O que fiz no exemplo foi indicar como 2 parametro o ponteiro de uma variável que tenho na memória, que é do tipo TTimerParam. Então ao receber a mensagem no Objeto Windows eu apenas forço o entendimento do 2 parametro como ponteiro de uma variável desse tipo, assim eu acesso as informações que nela contém.

Eu ainda não expliquei isso aqui no site, mas pra termos de ajuda:

type
  PTimerParam = ^TTimerParam; // tipo que guarda um ponteiro de um objeto TTimerParam
  TTimerParam = record // tipo que guarda uma string e um inteiro
    s: string;
    i: integer;
  end;

var
  OPonteiroDaMinhaVariavel: PTimerParam;
 
procedure CriaEspacoNaMemoria;
begin
  // crio um espaço na memória para guardar as informações que preciso
  New(OPonteiroDaMinhaVariavel);
  OPonteiroDaMinhaVariavel^.s := 'Meu texto';// um texto qualquer
  OPonteiroDaMinhaVariavel^.i := 0001;// um número qualquer
end;
 
procedure DestroiEspacoNaMemoria;
begin
  Dispose(OPonteiroDaMinhaVariavel);
  // aqui a memória foi desalocada, então não é possível mais ter acesso
  // ao que estava lá.
end;

Eu tive dificuldade em entender seu exemplo usando um objeto windows. Eu não entendi porque você criou o tipo TTimerParam.
Estou desenvolvendo um programa em delphi para ler dados através da porta serial e quero temporizar a aquisição. Já tentei fazer isso de diversas maneiras, mas não obtive sucesso. Se você pudesse me explicar como eu posso usar esse temporizador para o meu caso ou me indicar outro método eu ficaria MUITO grato.

Atenciosamente,

Thiago José da Silva