arkadaşlar stringgride editlerden veri girmek istiyorum 5 tane editim var. Her tıklamamda altta alta editlerden eklemesini istiyorum nasıl yapabilirim



Kullandığım Kod ama hep aynısını ekliyor

PHP Code:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
StringGrid1: TStringGrid;
Memo1: TMemo;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private

public

end;

var
Form1: TForm1;

implementation


procedure labelSGrid;
var
x: integer;
begin
with form1.stringgrid1 do
begin
form1.StringGrid1.Cells[0, 0]:= 'Urun Kodu';
form1.StringGrid1.Cells[1, 0]:= 'Urun Adı';
form1.StringGrid1.Cells[2, 0]:= 'Urun End Date';
form1.StringGrid1.Cells[3, 0]:= 'Urun Fiyatı';
form1.StringGrid1.Cells[4, 0]:= 'Urun Buy Time';
for x:=RowCount-1 downto 1 do
cells[0,x]:=inttostr(x);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0, 0]:= 'Urun Kodu';
StringGrid1.Cells[1, 0]:= 'Urun Adı';
StringGrid1.Cells[2, 0]:= 'Urun End Date';
StringGrid1.Cells[3, 0]:= 'Urun Fiyatı';
StringGrid1.Cells[4, 0]:= 'Urun Buy Time';

end;

procedure TForm1.Button1Click(Sender: TObject);
var s,i :integer;
begin
i:=0;
memo1.Lines.Add(edit1.Text);
memo1.Lines.Add(edit2.Text);
memo1.Lines.Add(edit3.Text);
memo1.Lines.Add(edit4.Text);
memo1.Lines.Add(edit5.Text);
stringgrid1.RowCount:=stringgrid1.RowCount+1;
labelSGrid;
for s:=0 to memo1.Lines.Count-1 do
begin
StringGrid1.rows[s+1].Assign(memo1.Lines);
label1.Caption:=inttostr( stringgrid1.RowCount);
end;//
end;

end.



__________________