Lazarus Funktion als Baustein nutzen

[blawen]

Dies lässt sich problemlos umsetzen, allerdings empfehle ich Dir, dich vorgängig mit den allgemeinen Grundlagen zu befassen.

Den Motor starten kannst Du z.B. mit einer Function à la

Delphi-Quellcode:

function Motor_X_Achse(Drehrichtung : String; Geschwindigkeit : Integer) : String;
begin
...
  Result := Aktueller_Status_des_Motor;
end;

Die Logik der SPS kannst Du vermutlich vom Ansatz her übernehmen.