Работа с матрицами, компонент TStringGrid, не получается вывести столбец.

[Eugene_A]

Здравствуйте.
Задали написать следующую программу:

{Написать программу, позволяющую создавать
матрицу (не более 3 строк и не более 4 столбцов -
по запросу). Вывести столбец, содержащий
максимальный элемент матрицы.}
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
begin
stringgrid1.rowcount:=strtoint(inputbox('Ввод размерности','Количество строк - ','не более 3'));
stringgrid1.ColCount:=strtoint(inputbox('Ввод размерности','Количество столбцов - ','не более 4'));
if (stringgrid1.rowcount>3) or (stringgrid1.ColCount>4) then
showmessage('Неверный ввод')
else
begin
randomize;
for j := 0 to stringgrid1.ColCount-1 do
  for I := 0 to stringgrid1.RowCount-1 do
    stringgrid1.Cells[j,i]:=inttostr(random(12));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var imax,jmax,i,j:byte;
begin
imax:=0;
jmax:=0;
for j := 0 to stringgrid1.ColCount-1 do
 for I := 0 to stringgrid1.RowCount-1 do
 if strtoint(stringgrid1.Cells[j,i])>strtoint(stringgrid1.Cells[jmax,imax])
 then
    begin
      imax:=i;
      jmax:=j;
    end;
panel1.Caption:=stringgrid1.cells[jmax,imax];
end;
end.

Не знаю как в TPanel вывести столбец с максимальным элементом, получается вывести только сам элемент. Пожалуйста, помогите.

[Stilet]

Tpanel для этого не предназначена.
Максимум что:

for i:=0 to stringgrid1.RowCount-1 do panel1.Caption:=panel1.Caption+IntToStr(stringgrid1.cells[jmax,i])+#13#10;

И то сомневаюсь.

[Eugene_A]

Не срабатывает - нельзя вызвать InToStr, у меня такая же ошибка была.
Без IntToStr получается, в панели числа выводятся в строку.
А какой компонент лучше использовать, чтобы числа в столбец выводились?

[Stilet]

нельзя вызвать InToStr

Да, затупил. Сорри.

в панели числа выводятся в строку.

Значит как я и сказал панель для этого не предназначена. в Лфьел такой фокус должен пройти.

А какой компонент лучше использовать, чтобы числа в столбец выводились?

ListBox конечно )