TForm1 = class(TForm)
public
Timer1 : TTimer;
MyVar: Integer;
procedure MyTimer(Sender: TObject);
end;
.............
procedure MyTimer(Sender: TObject);
begin
if Sender is TTimer then //esta condicion por lo general no hace falta.
begin
//aca va lo que necesites.
MyVar := X + Y + Z;
end;
end;
.............
Timer1.OnTime := MyTimer;