TMiClase = class
public
procedure AccionTimer(Sender: TObject);
end;
procedure TMiClase.AccionTimer(Sender: TObject);
begin
end;
program TuPrograma;
var
Timer: TTimer;
a: TMiClase;
begin
a:= TMiClase.Create;
Timer:= TTimer.Create(nil);
Timer.OnTimer:= a.AccionTimer;
end;