PWM con puerto paralelo...

[[cHackAll]]

Creo que el problema (como dijiste), es simplemente la estética de tu código, y la imposibilidad de agregar funcionalidades al programa o me equivoco?

En tal caso te aconsejo usar Hilos, y Mutex... los hilos te permitiran realizar operaciones que no afectaran a la GUI y serán algo mas controlables que el Timer. el Mutex te permitirá sincronizar los comandos que usas.

Por ejemplo:

Código Delphi [-]
function MoverMotor(ancho_de_pulso: Cardinal): Cardinal; stdcall;
begin
 Result := 8000;
 repeat Dec(Result);
  pro_MOTORMARCHA(ancho_de_pulso)
 until (Result = 0) or Application.Terminated;
end;
 
...
 
procedure TForm1.Button1Click(Sender: TObject);
var Dummy: Cardinal;
begin
 CreateThread(nil, 0, @MoverMotor,  Pointer(StrToInt(Edit1.Text)), 0, Dummy); // Donde Edit1 contiene el "ancho de los pulsos"
end;

Continuo?