[[seoane]]

Código Delphi [-]
if comparaa < comparab then
     begin
        if key = vk_return then
          begin
            Listbox1.items.add(anadirnom.text);
            anadirnom.text:='';
          end; // <-- Faltaba este ;
    end
    else
      ShowMessage('Ya no se pueden ingresar mas clientes');
    // end; < -- Y te sobra este otro end
end;