Zum ersten Fehler:
Versuch mal TForm1.SerialPortNG1.SendString(SendStr);
Bezogen auf
Zitat:
Procedure dummi(Messagetype, Zeilennummer, Text : string);
var SendStr : string;
begin
sendstr := char(01)+Messagetype+char(02)+Zeilennummer+Text+ch ar(03)+char(13);
SerialPortNG1.SendString(SendStr);
end;