Помогите сделать...

[slim5]

Здравствуйте!

Помогите пожалуйста доделать программу.
Программа находится во вложении!!!
В программе даны 2 формы:
на 1 форме находится компонент StringGrid размеров 8 на 8 куда выводятся ферзи, здесь всё работает.
Проблемма со второй формой куда должны выводится ферзи уже в графмческом виде, вот это имено и не выходит.

Если не трудно помогите пожалуйста.
Мой E-mail: stas_slim@list.ru
ПРОГРАММА ВО ВЛОЖЕНИИ.
Заранее СПОСИБО!!!

[B_N]

slim5, может хватит плодить темы про этих ферзей? В поиск, уже обсуждалось.

[slim5]

Извеняюсь! Просто программа срочно нужна.

[slim5]

Извеняюсь! Просто программу срочно доделать надо.

[alexBlack]

С минимальным изменением Вашего кода:
в unit1 перед Show

        Form2.SetFigures(StringGrid1);
        Form2.Show;

        //For i:=0 to 7 do
        //ниже закомментировать

в unit2:

  ...
  public
    procedure SetFigures(SG:TStringGrid);
  end;

var  Form2: TForm2;

implementation

procedure TForm2.SetFigures(SG:TStringGrid);
var i, j: Integer;
    img:TImage;
begin
   for i:= 0 to 7 do
      for j := 0 to 7 do begin
         if SG.cells[j, i] <> ' ' then begin
            img         := TImage(findComponent('Image'+intToStr((i)*8+j+1)));
            img.Left    := j*51+10;
            img.Top     := i*51+10;
            img.Visible := true;
         end;
      end;
end;

Если писали сами, разберетесь.