1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

ValueListEditor1.InsertRow('Franz', 'Müller', true);
ValueListEditor1.InsertRow('Franz', 'Müller', true);
ValueListEditor1.InsertRow('Heinz', 'Beck', true);
ValueListEditor1.InsertRow('Lisa', 'Franke', true);
ValueListEditor1.InsertRow('Heike', 'Müller', true);
ValueListEditor1.InsertRow('Isabell', 'Jakubik', true);
ValueListEditor1.InsertRow('Julia', 'Meier', true);
ValueListEditor1.InsertRow('Max', 'Müller', true);
ValueListEditor1.InsertRow('Paul', 'Meier', true);
ValueListEditor1.InsertRow('Louise', 'Meier', true);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

var
  Namen : TStringList;


procedure LadeNamen;
begin
// Namen in der Form  'Vorname Nachname ' in einer Textdatei C:\TEMP\TEST.TXT gespeichert
  Namen := TStringList.Create;
  Namen.LoadFromFile('C:\TEMP\TEST.TXT');
end;

// dies ist die OnKeyProzedur der Editfelder

procedure EditFeld1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_RETURN : 
      begin
        EditFeld2.SetFocus;
        Key := 0;
      end;
  end;
end;

procedure EditFeld2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_RETURN : 
      begin
        SucheNamen(EditFeld1.Text, TRUE);
        SucheNamen(EditFeld2.Text, FALSE);
        Key := 0;
      end;
  end;
end;


procedure SucheNamen(const welcher : string; const ListeLoeschern : boolean);
var
  i : integer;
  p : integer;
begin
  if Trim(welcher)='' then 
    Exit;
  if ListeLoeschen then 
    ValuelistEditor1.Clear;  // nehme an, dass damit die Liste entleert wird
  for i := 0 to Namen.Count do 
  begin
    p := Pos(' '+welcher,Namen[i]);
    if p>0 then 
    begin
      ValuelistEditor1.InsertRow(Trim(Copy(Namen[i],1,p)),Trim(Copy(Namen[i],p+1,255)), TRUE);
    end;
  end;
end;					

1:

ValueListEditor1.InsertRow('Hans','Otto',true);