serielle schnittstelle Ich versteh nur bahnhof

[christian_u]

var
ser : TBlockSerial;
Loknr : byte;
Geschw : byte;
begin
ser := TBlockSerial.Create;
ser.Connect('COM1');
ser.Config(2400,8,'N',SB1,false,false);
ser.SendString(Chr(Loknr)+Chr(Geschw));
ser.Free;
end;