If-Abfragen mit mehreren And-Verknüpfungen

[DelphiManiac]

Hallo,
ich habe desöfteren das Problem, dass ich so eine if-Abfrage machen muss:

Delphi-Quellcode:

...
qBytes:=GetQBytes; // Gibt die Anzahl der Bytes am Port zurück
if ((qBytes <>0) and (qbytes <> 25)...)
begin
..
end;

ich muss dann den Bezeichner sehr oft hinschreiben, ist es nicht möglich eine folgende Abfrage zu
definieren in Delphi??

if (qBytes <> 0 and <> 25 and <> ...)// Ist das irgendwie möglich? Vielen Dank