problema con if..then

[anubis]

Yo sigo preguntando despues de darle vueltas y vueltas

tengo este problema:

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

nose que estoy haciendo mal, pero ponga lo que ponga me da error o no me pasa por el segundo if, si lo dejo como esta me da error en el end; anterior al ultimo.

estoy anidando mal?

gracias

[[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;