Ist an dem Code was falsch?

[MasterC]

Hi,

kann es sein das in dem Code ein Fehler drin ist?

Delphi-Quellcode:

function FindChannelWindow(channel: string; server: Tserverform): Tmsgform;
var
  i: Integer;
begin
  for i := 0 to Application.ComponentCount-1 do begin
    if (Application.Components[i] is Tmsgform) then begin
      if ((Application.Components[i] as Tmsgform).channel = channel) and ((Application.Components[i] as Tmsgform).Server = server) then Result := (Application.Components[i] as Tmsgform);
    end;
  end;
end;

Das ganze funktioniert nämlich nicht ganz.

MFG Chris.