Помогите со StringGrid-ом и картинками, плииз!!!Очень нужно!

[EThread]

На форме есть StringGrid (2 столбца х 3 строки).
Как сделать так, чтобы при нажатии на кнопку растровая картинка (после её загрузки через OpenDialog) добавлялась в эту таблицу, при чём в ячейки по порядку (т.е сначала первая строка колонка1, 2; потом вторая строка, колонка 1, 2 .. и т.д). Одно нажатие на кнопку - одно добавление в таблицу...
А потом, когда 3 строки таблицы будут заполнены, появлялась новая с возможностью добавления картинки в неё.

[SERG1980]

Если вам только картинки загружать то лучше использовать DrawGrid.

procedure TForm1.Button1Click(Sender: TObject);
 var B:TBitMap;
     i,j:integer;
begin
 B:=TBitMap.Create;
 if Opendialog1.Execute then
 B.LoadFromFile(openDialog1.FileName);
 DrawGrid1.Canvas.StretchDraw(DrawGrid1.CellRect(i,j),B);
 B.Free;

а уж в каком порядке i,j изменять, решайте сами

[EThread]

Спасибо большое за совет.
Вот что сама сделала:


procedure TForm1.Button1Click(Sender: TObject);
var i :integer;
begin
if OpenPictureDialog1.Execute then
bm:=TBitMap.Create
else Exit;
for i:=0 to StringGrid1.RowCount-1 do
StringGrid1.Rows[i].Clear;
bm.LoadFromFile(OpenPictureDialog1. FileName);
x:=StringGrid1.Col;
y:=StringGrid1.Row;
Canvas.StretchDraw(StringGrid1.Cell Rect(x,y),bm);
StringGrid1.SetFocus;

end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (bm<> nil) and (ACol=x) and (ARow=Y) then
StringGrid1.Canvas.StretchDraw(Rect , bm);
end;

Только затрудняюсь теперь как сделать,чтобы картинки располагались именно по нужным ячейкам. Цикл не придумывается нужный. Несколько часов убила на разные варианты... Туплю что-то(

Может быть знает кто-нибудь?

[SERG1980]

implementation

{$R *.dfm}
var i,j:integer;

procedure TForm1.Button1Click(Sender: TObject);
var B:TBitMap;
begin
 B:=TBitMap.Create;
 if Opendialog1.Execute then
 B.LoadFromFile(openDialog1.FileName);
 DrawGrid1.Canvas.StretchDraw(DrawGrid1.CellRect(j,i),B);
 if i=DrawGrid1.RowCount-1 then
 begin
  i:=1;
  inc(j);
  if j=drawgrid1.ColCount then exit

  end
  else inc(i);
 B.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
j:=1;
end;

[EThread]

Спасибо Вам ещё раз)