Kleine Vorschläge noch:
Das hier:
Function TForm1.Jalousiefahrt(Befehl:String):Boolean;
würde ich ändern in:
procedure TForm1.Jalousiefahrt(Befehl:String);
Da eine Funktion ohne Rückgabewert nicht viel Sinn macht
und der Compiler warnt dich hier ja auch...
Noch was:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
{ Ticker('Stop'); <-- diese Zeile ist total überflüssig! }
Jalousiefahrt('Stop');
end;
...da bei dem Aufruf Ticker('Stop') ja überhaupt nichts gemacht wird...
Oder soll da später noch was dazukommen?