[ecfisa]

Entiendo...

Con un ListBox se hace mas fácil la tarea:

Código Delphi [-]
...
procedure TForm1.btnAgregarClick(Sender: TObject);
begin
  if Edit1.Text > '' then
  begin
    if (ListBox1.Items.IndexOf(Edit1.Text) = -1) then
      ListBox1.Items.Add(Edit1.text)
    else
    begin
      ShowMessage('El dato ya existe');
      Edit1.SetFocus;
    end;
  end
  else
    Edit1.SetFocus;
end;
...

PD: te estoy poniendo a trabajar

¿ Y para que estamos los amigos si no ?

Saludos.