Fehler beim Programmieren

[Binary]

Hallo Zusammen!

Mir sind beim Programmieren Fehler unterlaufen , ich füge euch auch noch ein Bild vom Programm rein, hier der qeulltext:

Code:

procedure Tf_such.b_erzeugeClick(Sender: TObject);
i : integer;
begin
 randomize;
 For i : 1 to 100 do
     begin
     zahlenfeld[i,0] := random(500)
     sg_suche.cells[i-1] := StrToInt(zahlenfeld[i]);
    end;

procedure Tf_such.b_normsucheClick(Sender: TObject);
var
date, ergebnis : integer;
begin
     date := StrToInt(e_gesucht.text)
     ergebnis := suche(date);
     If ergebnis < -1
        then e_pos.text := IntToStr(ergebnis)
        else e_pos.text := Nicht gefunden;
end;