Hola.
Te aconsejo usar un código similar en los eventos
OnExit de los Edits para verificar los datos que pudieran ingresar por copiado/pegado.
Ej.:
Código Delphi
[-]
procedure TForm1.EditsExit(Sender: TObject);
var
ed: TEdit;
v: Extended;
begin
ed := TEdit(Sender);
if (ed.Text > '') and not TryStrToFloat(ed.Text, v) then
begin
ed.SetFocus;
raise Exception.Create('Número inválido');
end;
end;
Saludos