|
Puede que el timer se este ejecutando mas de una vez simultaneamente.
Prueba a deshabilitar el timer durante su ejecución y habilitarlo cuando finalice.
on timer.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
Try
.
.
Finally
Timer1.Enabled := True;
end;
end;
|