Case in Funktion soll Message ausgeben

[Daniel B]

Hallo,

Delphi-Quellcode:

function TDataModule1.GetSXBusNumber: String;
var
  sByte: String;
begin
  case Wert of
    0: begin
         ;
       end;
    1: begin
         ComPort1.WriteStr(bla);
         ComPort1.ReadStr(sByte, 2);
       end;
    2: begin
         ComPort1.WriteStr(blabla);
         ComPort1.ReadStr(sByte, 2);
       end;
  end; //case
  Result := sByte;
end;

So, das klappt auch alles wie es soll, aber, wenn Wert = 0, dann soll nur eine ShowMessage ausgegeben werden, das kann ich aber nicht ins case schreiben, was macht man da?

Grüsse, Daniel