1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var gefunden : boolean;
    AktRow : integer; // festhalten, falls kein Ergebnis
begin
  ende := false;
  gefunden := false;
  AktRow := sg.Row;
  sg.Row := 1;
  while not gefunden and not ende do begin
    gefunden := copy (sg.Cells [Apalte,sg.Row],1,1) = Buchstabe;
    sg.Row := sg.Row + 1;
    ende := (sg.Row = sg.Rowcount) 
  end;
  if not gefunden then
    sg.Row := AktRow; // an Ausgangspunkt zurückkeheren