Probleme mit COM Port

[MAarkus_R19]

hi ich will ein paar zeichen über die serielle Schnittstelle ausgeben. --> hab mir die cport komponente runtergeladen und installiert jetzt sollte man ja mit WriteStr() und einem speicherplatz was rausschicken können jedoch kommt beim ausführen des Befehls die fehlereldung "writefile function failed (win error code:6)" was is da falsch????

hier noch ein kliener auszug aus dem programm:

Delphi-Quellcode:

var
  Spi: TSpi;
  b,a,ce,bef, cebus,befbus,adresse, daten:string;

procedure TSpi.Button1Click(Sender: TObject);
begin        
        comport1.WriteStr(cebus);
      
        if bef='write'
                then begin
                        befbus:='a';
                        adresse:= SPI.Adresse_Edit1.Text;
                        comport1.WriteStr(befbus);
                        comport1.WriteStr(adresse);
                        befbus:='b';
                        Daten:= SPI.Adresse_Edit1.Text;
                        comport1.WriteStr(befbus);
                        comport1.WriteStr(daten);
                end;
        if bef ='read'
                then begin
                        befbus:='c';
                        adresse:=SPI.Adresse_Edit1.Text;
                        comport1.WriteStr(befbus);
                        Comport1.WriteStr(adresse);
                        comport1.ReadStr(daten,2)  ;

                end;

end;

[Edit=Sakura]Herzlich willkommen in der DP
Überschrift angepasst
DELPHI-[]-Tags gesetzt[/Edit]