[force1758]

Gracias a todos por ayudarme en especial nlsgarcia por su src que me sirvió mucho de ejemplo pero mi ignorancias es indescriptible pero haber si me ayudan a pasarla a funcion se lo agradecería muchísimo aquí esta el codigo que trabaja perfecto a lo que buscaba solo que lo quiero en funtion

Código Delphi [-]
var
FileVector :  Array [0..6] of String;

procedure TForm1.Button1Click(Sender: TObject);
var
   F : TextFile;
   i : Integer;
   Buffer : String;
begin
try
AssignFile(F,'C:\nombre.txt');
Reset(F);
      i := 0;
      while not Eof(F) do
      begin
         Readln(F, Buffer);
         SetLength(FileVector[6],i);
         FileVector[i+1] := Buffer;
         Inc(i);
      end;
      except
end;
 label1.Caption := (FileVector[1]);
 label2.Caption := (FileVector[2]);
 label3.Caption := (FileVector[3]);
 label4.Caption := (FileVector[4]);
      end;

trabaja como quiero solo aunque ahora lo quiero es hacerlo en una funtion no con evento onclick espero que tambien le sirva a alguien para lo que quiera y si tienen otra idea a demas de esta pueden colocarla

Saludos y Gracias