Stuff

unit witczak;

interface

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

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Image1: TImage;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    StringGrid4: TStringGrid;
    procedure FormCreate(Sender: TObject);
     procedure gridCreate(Sender: TObject);
          procedure gridCreates(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.gridCreate(Sender: TObject);
begin
    stringgrid1.Cells[0,0] := 'Nr.';
    stringgrid1.Cells[1,0] := 'Nazwa firmy';
    stringgrid1.Cells[2,0] := 'cena';
    stringgrid1.Cells[0,1] := '1';
    stringgrid1.Cells[0,2] := '2';
    stringgrid1.Cells[0,3] := '3';
    stringgrid1.Cells[0,4] := '4';
    stringgrid1.Cells[0,5] := '5';
end;

procedure TForm1.gridCreates(Sender: TObject);
begin
    stringgrid1.RowCount := 20;
    stringgrid1.Cells[0,6] := '6';
    stringgrid1.Cells[0,7] := '7';
    stringgrid1.Cells[0,8] := '8';
    stringgrid1.Cells[0,9] := '9';
    stringgrid1.Cells[0,10] := '10';
    stringgrid1.Cells[0,11] := '11';
    stringgrid1.Cells[0,12] := '12';
    stringgrid1.Cells[0,13] := '13';
    stringgrid1.Cells[0,14] := '14';
    stringgrid1.Cells[0,15] := '15';
    stringgrid1.Cells[0,16] := '16';
    stringgrid1.Cells[0,17] := '17';
    stringgrid1.Cells[0,18] := '18';
    stringgrid1.Cells[0,19] := '19';
    stringgrid1.Cells[0,20] := '20';
    stringgrid1.Cells[1,1] := 'alama';
    stringgrid1.Cells[2,1] := '2000';
    stringgrid1.Cells[1,2] := 'manaman';
    stringgrid1.Cells[2,2] := '54764576';
    stringgrid1.Cells[1,3] := 'lol';
    stringgrid1.Cells[2,3] := '3763346';


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    gridCreate(stringgrid1);
    gridCreates(stringgrid1);
end;

end.