Fitrowanie zawartosci schowka/zmiennych

Witam
Mój problem polega na tym, że chciałbym zablokować możliwość wklejenia ze schowka liter i innych znaków dopuszczając przy tym wyłącznie cyfry i jeden przecinek. Wymyśliłem sposób z wykorzystanie pętli, który sprawdza każdy znak, lecz ten skrypt nie działa:(
Oto kod:

Wklej := Clipbrd.Clipboard.AsText;
      for I := Length(Wklej) downto 1 do
        begin
        if Wklej[I] <> '0' then
          Delete(Wklej, I, I);
        end;
        RyczaltM.Text := Wklej;

Może istnieje jakiś lepszy sposób na przefiltrowanie zawartości schowka??
Pomocy... Jeżeli ktoś widzi tu błąd to proszę o kontakt. Z góry dzięki:)

Ma sie rozumieć, że w schowku ma być typ zmiennoprzecinkowy? Jeśli tak...

//uses Clipbrd;
try
  StrToFloat(Clipboard.AsText);
except
  Clipboard.AsText := '';
 end;

heheh... dzięki:PP Właściwie chodziło mi o to żeby usunąć niepoprawne znaki i wstawić resztę znaków... lecz to rozwiązanie wydaje mi się o wiele lepsze... Jeszcze raz dzięki:) Pozdrawiam