Mengisi Item pada Stringgrid

mengisi item pada stringgrid menggunakan :

• StringGrid1.Cells.[Kolom,Baris]:=text;

mengambil nilainya untuk dimasukan ke table :

• Table1.fieldbyname('no').asstring:=StringGrid1.Cells.[Kolom,Baris];

untuk simulasi pengisian ,

1. buatlah aplikasi baru 
2. Tambahkan 1  TStringGrid
3. tambahkan 3 Tedit
   

TStringGrid akan terisi pada saat kita menekan enter pada masing masing komponen edit. sehingga kita perlu menambhkan perintah pada even onkeypress pada masing masing edit. Listing lengkapnya :
 unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  barisA,BarisB,BarisC:integer;
implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
// StringGrid1.Cells[kolom,baris]
StringGrid1.Cells[1,barisA]:=edit1.Text;
inc(barisA);
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  barisA:=0;
  BarisB:=0;
  BarisC:=0;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
// StringGrid1.Cells[kolom,baris]
StringGrid1.Cells[2,barisB]:=edit2.Text;
inc(barisA);
end;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
// StringGrid1.Cells[kolom,baris]
StringGrid1.Cells[3,barisC]:=edit3.Text;
inc(barisC);
end;
end;

end.