procedure Tform1.button1click(sender : TObject);
var i, k, b : integer;
begin
   k := 1;
   b := 1;
   for i := 0 to stringgrid.rowcount-1 do
      stringgrid.cell[k, b] := edit1.text;
      inc(k);
     stringgrid.cell[k, b] := edit2.text;
     inc(k);
     stringgrid.cell[k, b] := edit3.text;
     inc(k);
     stringgrid.cell[k, b] := edit4.text;
     inc(b);
end;

@ags606: hallo all langsung aja. minta bantuan master2. sy buat form_browse_item dimana formnya dipanggil oleh dua/ato lebih form yang berbeda, biasanya cara bodohnya saya buat form_browse_item utk masing2 form yang memanggilnya.. nyang saya mau tanyakan ada enggak cara pinter untuk memanggil form_browse_item dari banyak form tanpa membuat banyak form_browse_item (ato form_brose_itemnya cm 1 bh). satulagi saya mau memasukkan data di edit1, edit2, edit3, edit4 ke dalam stringgrid setiap button.click terus-menerus ampe stringgrid.rowcount

procedure Tform1.button1click(sender : TObject);
var i, k, b : integer;
begin
   k := 1;
   b := 1;
   for i := 0 to stringgrid.rowcount-1 do
      stringgrid.cell[k, b] := edit1.text;
      inc(k);
     stringgrid.cell[k, b] := edit2.text;
     inc(k);
     stringgrid.cell[k, b] := edit3.text;
     inc(k);
     stringgrid.cell[k, b] := edit4.text;
     inc(b);
end;

codenya enggak berhasil, mohon petuahnya trims sebelumnya

procedure Tform1.button1click(sender : TObject);
var i, k, b : integer;
begin
   for i := 0 to stringgrid.rowcount-1 do
      k := 0;
      b := 0;
      stringgrid.cell[k, b] := edit1.text;
      inc(k);
     stringgrid.cell[k, b] := edit2.text;
     inc(k);
     stringgrid.cell[k, b] := edit3.text;
     inc(k);
     stringgrid.cell[k, b] := edit4.text;
     inc(b);
end;

procedure TFItem.sbKode_ItemClick(Sender : TObject);
begin
  FBrowse_Item.ShowModal;
end;

procedure TFBrowse_Item.grdBrowse_Item.dblClick(Sender : TObject);
begin
 //kalo yang memanggilnya form FItem
 with FItem.qryBrowse_Item do
 begin
  locate('KODE_ITEM',grdBrowse_Iem.Fields[0].Asstring,);
 end;
 //kalo yang memanggilnya form FItem_MAsuk
 //FItem_Masuk.edKode_Item.text := grdBrowse_Item.Fields[0].Asstring;
 
end;

  for i := 0 to stringgrid.rowcount-1 do
      stringgrid.cell[k, b] := edit1.text;

for i := 0 to stringgrid.rowcount-1 do
begin  //tambahan
      stringgrid.cell[k, b] := edit1.text;
   ....
    ...
end; //tambahan

    private
    ...
   public
     drForm : String;
  ...

  FBrowse_Item.drForm := 'Form Yg Manggil';

procedure Tform1.button1click(sender : TObject);
var i,frm:integer;
begin
stringgrid.cell[0,0]; 
case frm of
  0:begin //form 1
       stringgrid.cell[0, 1] := edit1.text;
       stringgrid.cell[1, 1] := edit2.text;
       stringgrid.cell[2, 1] := edit3.text;
       stringgrid.cell[3, 1] := edit4.text;
       StringGrid1.Col:=1;
       StringGrid1.Row:=StringGrid1.Row+1;
   end;
  2:begin //form 2
       stringgrid.cell[0, 1] := edit1.text;
       stringgrid.cell[1, 1] := edit2.text;
       stringgrid.cell[2, 1] := edit3.text;
       stringgrid.cell[3, 1] := edit4.text;
       StringGrid1.Col:=1;
       StringGrid1.Row:=StringGrid1.Row+1;
   end;
end;
 
end;