Adressbuch mit Stringgrid.

[GroZ]

Ich habs hingekriegt das er den namen komplett bis runter schreibt also in jede Zeile vom Header "Namen" aber halt immer der gleiche...

Delphi-Quellcode:

procedure TForm1.HinzuBtnClick(Sender: TObject);
var i : integer;
begin
    for i := 1 to 20 do
    begin
      AdresseGrid.Cells[1,i] := Name.Text;
  AdresseGrid.Cells[1,i]:= Name.Text;
  AdresseGrid.Cells[2,i]:= Alter.Text;
  AdresseGrid.Cells[3,i]:= Wohnort.Text;
  AdresseGrid.Cells[4,i]:= Tel.text;
    end;
end;