Leer 4 Lineas de dos Archivo .txt

[wcbs]

Gracias Casimiro Notevi
por tu pronta repuesta y también por darme la bienvenida al foro, te comento que ya e logrado ver dos de las lineas
pero sigo haciendo pruebas, me falta ver como hago para llamar el otro archivo y presentarlo en dos Tedit mas,

esto es lo que llevo asta ahora....
-----------------------------------------

Código Delphi [-]
unit Metros; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 
 
type 
  TForm1 = class(TForm) 
    Label1: TLabel; 
    Edit1: TEdit; 
    Button1: TButton; 
    Edit2: TEdit; 
    Label2: TLabel; 
    Button2: TButton; 
    Label3: TLabel; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
  Datos: TextFile; 
  TS: TStrings; 
  TSA: TStrings; 
  Linea: String; 
  NumLinea: integer; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
AssignFile(Datos,'C:\Games\BOOKS\C2006.DAT'); 
   Reset(Datos); 
   NumLinea := 0; 
   REPEAT 
 
        TS:= TStringList.Create; 
        Readln(Datos, Linea); 
        Inc(NumLinea); 
        UNTIL NumLinea = 4; 
        TS.Clear; 
        ExtractStrings(['|'], [], PChar(Linea), TS); 
        Edit1.Text:= TS.Text; 
   REPEAT 
        TSA:= TStringList.Create; 
        Readln(Datos, Linea); 
        Inc(NumLinea); 
        UNTIL NumLinea = 5; 
        TSA.Clear; 
        ExtractStrings(['|'], [], PChar(Linea), TSA); 
        Edit2.Text:= TSA.Text; 
 
      CloseFile(Datos); 
 
   end; 
    procedure TForm1.Button2Click(Sender: TObject); 
begin 
close; 
end; 
 
end.

--------------------------------------------------------------
todavía en este no tengo agregado la forma de ejecutar al presionar la tecla F6 del teclado, porque voy probando
en otro archivo y lo que me sale bien lo paso a este, como veras es cosa de principiante, pero con animo de ir
aprendiendo

Gracias...de nuevo y me dirás como mas ir adelantado