function dazu(sl: TStringlist; Name, Geburtstag: string): boolean; 
var 
  i: integer; 
  s: string; 
begin 
  s := Name + '='; 
  for i := 0 to sl.count - 1 do 
    if ansipos(s, sl[i]) > 0 
      then begin 
      result := false; 
      showmessage(Name + ' existiert schon.'#13#10 + 
        Geburtstag + ' wurde nicht eingetragen!'); 
      exit; 
    end; 
  sl.Add(Format('%s=%s', [Name, Geburtstag])); 
  result := true; 
end; 
 

 
procedure TForm1.Button7Click(Sender: TObject); 
var 
  sl: TStringList; 
begin 
  sl := TStringList.Create; 
  dazu(sl, 'Peter', '01.01.1970'); 
  dazu(sl, 'Chris', '02.02.1961'); 
  dazu(sl, 'Bernd', '03.03.1955'); 
 
  // ... 
 
  ShowMessage(sl.Values['Chris']); 
  sl.Free; 
end;