[Aleca]

Código Delphi [-]
var
  Form1: TForm1;
  datos: array[1..3,1..4] of integer;
  ren:integer=1;col:integer=1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.InsertarClick(Sender: TObject);
var 
  temp:string;
begin
  col := col + 1;
  if (col=5) then   
  begin
     ren:=ren+1; 
     col:=1;
  end;
   
  if (ren=4) then 
  begin
     showmessage('Lista llena'); 
     edit1.Visible:=false;
  end
  else
    datos[ren,col]:=strtoint(edit1.Text);
 
  edit1.Text := ' ';
  temp := temp+inttostr(datos[ren,col]);
  listbox1.Items.Add(temp);
end;

end.

Creo q seria algo asi.
PD: hay q leer la guia de estilo.