Validar campo

[Juan Reyes]

Buenas tardes, me podrian apoyar con esta sentencia, quiero validar un campo en el cual si el usuario escribe cualquier ya sea caracter o string de texto despliegue un mensaje. Debe admitir únicamente números ya sea enteros o decimales.

Código Delphi [-]
procedure Tfcapturact.copau1Exit(Sender: TObject);
begin
if copau1.text in ['a*'..'z*']then
 begin
   application.messagebox('error',
  'Error',mb_iconwarning);
  end
  else begin end;
end;

Gracias por su tiempo y apoyo.