[ecfisa]

Hola.

Ahora creo entender un poco mejor, entonces el ejemplo que te puse no se aplicaría a este caso.
Si los queres pasar a mano, la opción de Carlos es la correcta ya que se pasarán de acuerdo al órden en que los seleccionaste.

También existe la posibilidad de ahorrarte esa taréa si el formato en que están los datos en el archivo de texto mantiene una secuencia lógica.
Supongamos que los datos fueran tres: nombre, apellido y domicilio. Si los datos en el archivo mantienen ese órden y están separados por ';', como por ejemplo

Juan;Perez;Calle1;Ana;Martinez;Calle2;Pedro;García;Calle3;María;Juarez;Calle4;Jhon;Smith;5thStreet

Podrías hacer:

Código Delphi [-]
const
  NCAMPOS = 3;  // nombre,apellido,domicilio

var
  TS: TStrings;
  NroDato: Integer = 0;  // inicializar NroDato

procedure TForm1.FormCreate(Sender: TObject);
begin
  TS:= TStringList.Create;
  TS.LoadFromFile('C:\SOCIOS.TXT');
  TS.Delimiter:= ';';
  TS.DelimitedText:= TS.Text;
end;

procedure TForm1.btnPasarAEditClick(Sender: TObject);
var
  i: Integer;
begin
  Edit1.Text:= TS[NroDato];
  Edit2.Text:= TS[NroDato+1];
  Edit3.Text:= TS[NroDato+2];
  if NroDato + NCAMPOS < TS.Count then Inc(NroDato,NCAMPOS);
end;

Pero esto sólo si los datos en el archivo cumplen las condiciones que te mencioné arriba.

Saludos.