Adressen in Stringgrid Feld schreiben

[tobiasw]

hi
folgendes Prob wie man an meinem Code erkenne kann werden Adresse Daten in ein Stringgrid geschrieben nur mein Prob ist es das wenn ich schon Adressen drinnen habe er mir diese überschreibt, dehalb habe ich mir gedacht ich erstelle ein Label das hochzählt und in ein anderes stringgrid Feld springt. Nur das ganze funzt net. Vielleicht entdeckt ja jemand den Fehler, oder jemand hat eine besssere Lösung.

Delphi-Quellcode:

adress_typ=record
name, vorname, strasse, hausnummer, wohnort, telefonnummer:string;
end;

var
  Form1: TForm1;
Adresse:adress_typ;
test:string   ;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
test:=(FloatToStr (StrToFloat (test) +1));
Label1.Caption:= FloatToStr (StrToFloat (test));


adresse.name:=edit1.text;
adresse.vorname:=edit2.text;
adresse.strasse:=edit3.text;
adresse.hausnummer:=edit4.text;
adresse.wohnort:=edit5.text;
adresse.telefonnummer:=edit6.text;
for i:=1 to 5 do begin

StringGrid1.Cells [1,inttostr (Label1.Caption)]:= adresse.name;
StringGrid1.Cells [2, i]:= adresse.vorname;
StringGrid1.Cells [3, i]:= adresse.strasse    ;
StringGrid1.Cells [4, i]:= adresse.hausnummer;
StringGrid1.Cells [5, i]:= adresse.wohnort;
StringGrid1.Cells [6, i]:= adresse.telefonnummer;
end;
    end;