[esquerda21]

Enefecto señorito andres1569, claro que lo he probado, Como todo lo que pregunto, pero disculpe mi ignorancia dado que no sabia que se debia contestar si me habia ido bien, igualmente este es el codigo q hice:

var
Form1: TForm1;

implementation

type
matriz = record
x1: integer;
y1: integer;
end;

var
matriz1: array of matriz;
//f: file of matriz;
i: integer;
F: TextFile;
const
max = 10;
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);//Genera el array
var
i: integer;
begin
i:= 1;
repeat
SetLength(matriz1,i);
matriz1[i-1].x1:= i - 1;
matriz1[i-1].y1:= i + 1;
i:= i + 1;
until i = max;
end;

procedure TForm1.Button2Click(Sender: TObject);//Crea el archivo TXT
var
i: integer;
begin
i:= 1;
AssignFile(F, 'd:\delphi5\basura\pro.txt');
Rewrite(F);
repeat
Writeln(F, inttostr(matriz1[i].x1) + ' ' + inttostr(matriz1[i].Y1));
i:= i + 1;
until i = max;
CloseFile(F);
end;

procedure TForm1.Button3Click(Sender: TObject);//Pone en el MEMO1 el array
var
i: integer;
begin
memo1.Clear;
i:= 1;
repeat
memo1.Lines.Add(inttostr(matriz1[i].x1) + ' ' + inttostr(matriz1[i].Y1));
i:= i + 1;
until i = max;
end;

procedure TForm1.Button4Click(Sender: TObject);//Lee el fichero y lo carga en el MEMO2
var
i: integer;
S: STRING;
begin
i:= 1;
AssignFile(F, 'd:\delphi5\basura\pro.txt');
Reset(F);
repeat
Readln(F,s);
memo2.Lines.Add(s);
i:= i + 1;
until i = max;
CloseFile(F);
end;

end.

Alomejor falta algo pero ami me ha funcionado perfectamente.
Respecto a tu segunda respuesta de que el nombre o el nick aparece en la parte superior izquierda...Yo no lo veo en esta pantalla, asi que decidi de una forma sutil y bromista hacer contestar como lo hice (Y pido disculpas si lo he molestado) pero todavia y gracias a dios aun hay gente que trabaja y tiene ir posteando a casi escondidas.Espero que lo entienda. De todas formas si es tan importante que diga que cierre el posteo lo haré ya que el buen funcionamiento de esta pagina me interesa dada que es una de las mejores. saludo