Access Violation bei öffnen der seriellen

[Daniel B]

Hallöchen,

siehe Anhang, diese Meldung erhalte ich wenn ich versuch den ComPort zu öffnen.

Delphi-Quellcode:

procedure TDataModule1.OpenComPort;
begin
  case DatenFormat of
    0: begin 
         if ComPort1.Connected then
         begin
           ComPort1.Close;
         end
         else
         begin
           ComPort1.Port := CPPort;
           ComPort1.CustomBaudRate := StrToInt(CPBaud);
           ComPort1.DataBits := dbEight;
           ComPort1.Parity.Bits := prNone;
           ComPort1.StopBits := sbOneStopBit;
           ComPort1.FlowControl.FlowControl := fcNone;
           ComPort1.Open;
         end; //if
       end; //begin
    1: begin
         if ComPort1.Connected then
         begin
           ComPort1.Close;
         end
         else
         begin
           ComPort1.Port := CPPort;
           ComPort1.CustomBaudRate := StrToInt(CPBaud);
           ComPort1.DataBits := dbEight;
           ComPort1.Parity.Bits := prNone;
           ComPort1.StopBits := sbOneStopBit;
           ComPort1.FlowControl.FlowControl := fcNone;
           ComPort1.Open;
         end; //if
       end; //begin
    2: begin
         if ComPort1.Connected then
         begin
           ComPort1.Close;
         end
         else
         begin
           ComPort1.Port := CPPort;
           ComPort1.CustomBaudRate := StrToInt(CPBaud);
           ComPort1.DataBits := dbEight;
           ComPort1.Parity.Bits := prNone;
           ComPort1.StopBits := sbOneStopBit;
           ComPort1.FlowControl.FlowControl := fcHardware;
           ComPort1.Open;
         end; //if
       end; //begin
  end; //case
end;

Der Index 2. Das Problem tritt in der ersten Zeile auf, wo das Wort ComPort1.Irgendwas vorkommt. Das if habe ich erst nachträglich eingebaut. Hat aber auch nichts gebracht. Die Prozedure wird im OnShow des Hauptformulares aufgerufen. Die Prozedur selbst ist aber in einer externen Unit, also im DatenModule1.

Irgend welche Ideen?

Grüsse, Daniel