If(TryStrToFloat(Edit1.text, Variable)) then begin
//Tu codigo aqui
Edit2.text := edit1.text;
end;
//variable es de tipo extended y llevaría el valor convertido del edit1 a numérico en caso de exito
IF length(CODIGO.Text) < 2 then
begin
CANTIDAD.Text := copy(CODIGO.Text,1,1);
codigo.Text := '';
codigo.SetFocus;
exit;
end;
function SoloNumeros( entrada: string): string;
var
t,i: integer;
s: string;
begin
result := '';
t := length(entrada);
for i := 1 to t do begin
s := copy(entrada, i, 1);
if (s >= '0') AND (S<='9') THEN
result := result + s;
end;
end;