Problem mit Kommunikation mit Comport über WinApi

[hlware]

Hallo,

Habe einen wichtigen Teil vergessen.

Delphi-Quellcode:

procedure TForm1.ActionConnectToComExecute(Sender: TObject);
Var Portname : String;
begin
   // ConnectToComPort;
  PortName := 'Com'+IntToStr(ComPortNr);
  if ActionConnectToCom.Checked then Begin  // Checkbox im Menü
      if cCom1.ConnectToComPort(true, PortName) then
      StatusBar1.Panels[1].Text := PortName + ' Handle: ' + IntToStr(cCom1.GethCom) // Statusmeldung
      else ActionConnectToCom.Checked := false;
  end
  else begin
      cCom1.DisconnectComPort('Com2');
      StatusBar1.Panels[1].Text := 'Disconnnect' + 'Handle: ' + IntToStr(cCom1.GethCom);
  end;

end;

Das mein Code Probleme mit Unicode machen könnte kann durchaus sein, er ist damals auf Turbo Delphi 2006 entstanden.

Tut mir leid, dass er nicht so gut kommentiert ist, dass hielt ich früher noch nicht für nötig.

Ich hoffe es hilft etwas weiter