[orion_asm]

На форму добавить поле Memo и диалог открытия файлов OpenDialog. Ну и кнопку, вот ее обработчик:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
mass : array [0..2] of array [0..2] of integer;
i,j : integer;
begin
if OpenDialog1.Execute then
begin
  AssignFile(F, OpenDialog1.FileName);
  Reset(F);
  while not EOF(F) do
  begin
    for i := 0 to 2 do
      for j := 0 to 2 do
      Read(F, mass[i][j]);
  end;
end;
for i := 0 to 2 do
  for j := 0 to 2 do
  Memo1.Lines.Add('mass [' + IntToStr(i) + ']' + '[' + IntToStr(j) + ']' + ' = ' + IntToStr(mass[i][j]));
end;