Variable Möglicherweise nicht Deklariert...

[Metschu]

Hallo zusammen,

wie bekomme ich bei folgendem Quelltext die Warnungen unten ausgeblendet:

Delphi-Quellcode:

Case KomUnit.ModulTyp of
    1: Begin;
         usb   := tUSB_Kom.Create;
         error := usb.connect;
       End;
    2: Begin;
         Fox   := tFox_kom.Create;
         Error := Fox.connect;
       end;
end;

// ... Mache was mit dem gewählten Modul
// gebe nun das gewählte Modul wieder frei:

    case KomUnit.ModulTyp of
      1: begin;
          usb.disconnect; // < W1036 Variable 'USB' ist möglicherweise nicht initialisiert worden
          usb.Free;
         end;
      2: begin;
          Fox.disconnect; // < W1036 Variable 'fox' ist möglicherweise nicht initialisiert worden
          fox.Free;
         end;
    end;

Der Grund für die Warnung erscheint mir Logisch, da für Delphi ja nicht Sichergestellt ist, das die Variable Wirklich Initialisiert ist, von der Logik her jedoch schon, da der Modultyp währenddessen nicht verändert wird.

Bekomme ich die Warnung irgendwie weg?

Danke und Gruß

Torsten.