Интеграция Pascal кода в Delphi

[VaLenOK007]

а можно зарисовочку? Быстрее вникну

[Alex11223]

Вот что-то из древнего кода. m и l тут глобальные переменные и вводятся из едит1 и едит2.

procedure TForm1.btn1Click(Sender: TObject);     //заполнение случ. числами
var i,j:Integer;
begin
Randomize;
//запрет изменения количества строк и столбцов
edt1.enabled:=False;
edt2.enabled:=False;

//заполнение массива по столбцам
for i:=0 to m-1 do
   for j:=0 to l-1 do
      strngrd1.Cells[i,j]:=IntToStr(Random(10));

end;

procedure TForm1.btn2Click(Sender: TObject);  //нахождение нулевых эл. массива
var i,j,k:Integer;
begin
//выделяем нулевые элементы цветом /////////////////////
strngrd1.OnDrawCell:=strngrd1DrawCell;
strngrd1.Invalidate;
/////////////////////////////////////////////
k:=0; //обнуляем счетчик
for i:=0 to m-1 do
   for j:=0 to l-1 do
      if StrToInt(strngrd1.Cells[i,j])=0 then Inc(k); //считаем нулевые значения
MessageDlg('В массиве ' +IntToStr(k) + ' нулевых значений', mtInformation, [mbOK], 0);
end;

Ниже еще выделение их цветом если интересно:

procedure TForm1.strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
//выделение нулевых элементов цветом
if Strngrd1.Cells[ACol,ARow] = '0' then  {ACol - столбец, ARow - строка}
begin
strngrd1.Canvas.Brush.Color := clLime; //цвет
strngrd1.Canvas.FillRect (Rect);
strngrd1.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, strngrd1.Cells[ACol,ARow]);
end;
end;

[VaLenOK007]

о! Вот это то что надо, помучаюсь посижу глядишь сделаю! Благодарствую безмерно