...
var
form,Memo,Open,Load:PControl;
Dialog:pOpenSaveDialog;
f:textfile; s:string;
i:integer;
k:array [1..256] of integer;//массив

//область для процедур
procedure OpenClick(Dummy : Pointer; Sender: PControl );
begin

Dialog:=NewOpenSaveDialog('',FileFullPath('Project1.exe'),[]) ;
Dialog.title := 'Открыть';
dialog.Filter := '*.txt|*.txt|все|*.*';
Dialog.OpenDialog := true;
 if Dialog.Execute then begin

 assignfile(f,Dialog.Filename);
    try

reset(f);
    for i:=1 to 7 do  begin
                          readln(f,s);
                         k[i]:= str2int(s);
                         Memo.add(int2str(i)+' ) '+s+#13#10);
                         end;

    closefile(f);
    except
    end;
                                                        end else exit;

end;
procedure ShowClick(Dummy : Pointer; Sender: PControl );
var j:integer;
begin
Memo.add(' '+#13#10);
for j:=1 to 7 do Memo.add(int2str(j)+' ) '+int2str(k[j])+#13#10);
end;
...