Delphi - Quiero solo numeros en un Edit

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;