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.