VALIDAR NOME NO DELPHI

VALIDAR NOME NO DELPHI

EVENTO ON KEY PRESS



    if (key in ['0'..'9']) then
    begin
    Application.MessageBox('Somente letras por favor.','titulo',MB_ok +
    MB_defbutton1 + MB_iconexclamation);
    Key := #0;
    Abort;