1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.FormActivate(Sender: TObject);
var
  reihe : Integer;
begin
  Edit1.Text := qrMain.FieldByName('name').AsString;
  reihe := 1;
  while not qrMain.Eof do
  begin
    anzeige_alle.Cells[1,reihe] := qrMain.FieldByName('id').AsString;
    anzeige_alle.Cells[2,reihe] := qrMain.FieldByName('name').AsString;
    anzeige_alle.Cells[3,reihe] := qrMain.FieldByName('vorname').AsString;
    anzeige_alle.Cells[4,reihe] := qrMain.FieldByName('tel').AsString;
    anzeige_alle.Cells[5,reihe] := qrMain.FieldByName('email').AsString;
    qrMain.Next;
    reihe := reihe + 1;
    anzeige_alle.RowCount := reihe;
  end;
end;