Y mira dentro del evento OnClick deberias hacer lo siguiente
Código Delphi
[-]
Function TieneLetras(s:String):boolean;
var
Letra:boolean;
I:Integer;
begin
letra:=false;
While (I<=Length(s)) and not lentra do
letra:= s[i] in [',','.','0'..'9'];
end;
.....
if tieneLetras(edit1.text) then begin
Showmessage('Debe ingresar solo letras');
edit1.setfocus;
end;
Con esto deberia funcionar. no lo prove porque no estoy con delphi en este momento. pero es mas o menos esa la idea.
de todos modos yo soy participe de hacer la validacion en el momento que se van pulsando las teclas. ya que evitas que se pase algun caracter o que luego de realizar una carga de varios Edits haya que volver a corregir uno.
saludos