einfache suchfunktion - hilfe

[theNick]

Hallo,
ich habe ein Problem -> ich möchte gerne ein Array durchgehen und nach vor bzw. nachnamen suchen,
aber irgendwie verzweifel ich daran. Es will und will nicht gehen obwohl ich es mitlerweile so einfach wie möglich geschrieben habe (zu anfang ging es aber nu will es nimmer).

Delphi-Quellcode:

procedure TForm1.ButtonsuchenClick(Sender: TObject);
var i:integer;
begin
{suchfunktion}
  for i:=1 TO 200 do
    begin
    {suchen nach vorname}
      if Editsuchen.text = Schuelerfeld[i].vorname THEN
        begin
          Labelstatus.Color := clgreen;
          Labelstatus.caption := 'Der gefundene Schüler hat die ID ' + IntToStr(i);
        end
      else
        BEGIN
          Labelstatus.caption := 'Kein Eintrag gefunden';
          Labelstatus.Color := clred;
        END;
     {suchen nach nachname}
      if Schuelerfeld[i].nachname = Editsuchen.text THEN
        begin
          Labelstatus.Color := clgreen;
          Labelstatus.caption := 'Der gefundene Schüler hat die ID ' + IntToStr(i);
        end
      else
        BEGIN
          Labelstatus.caption := 'Kein Eintrag gefunden';
          Labelstatus.Color := clred;
        END;
    end;
end;