Tienes que programarle el evento OnTimer, asignarle a la propiedad Interval el tiempo en milisegundos cada cuándo quieres que se dispare y activarlo mediante la propiedad Enabled
Código:
procedure TForm1.ActivaTimerClick(Sendet: TObject);
begin
Timer1.Interval := 1000;
Timer1.Enabled := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage('esto se dispara cada segundo');
end;