[[Lepe]]

A ver, lo que necesitas es esto:

Para añadir un número de telefono:

Código Delphi [-]
procedure TForm1.ComboKeyUp(.....)
begin
if key = vk_return then // estando en el Combo, presiona la tecla Enter
  if combo.items.indexof(combo.text) =-1 then // si no existe ya el numero en la lista
      combo.items.Add(combo.text);
end;

Si quieres que al cerrar el programa, y volverlo a abrir, vuelva a recordar esos números escritos por el usuario, tendrás que guardarlos a disco:

Código Delphi [-]
procedure TForm1.Form1Close(...)...
begin
  combo.items.SaveTofile(ChangeFileExt(Application.Exename,'.dat'));
end;

procedure Tform1.FormCreate(...);
begin
  if fileExistsChangeFileExt(Application.Exename,'.dat')) then
     Combo.items.LoadFromFile(ChangeFileExt(Application.Exename,'.dat'));
end;

saludos