[vinni]

чуваки, спасибо большое, но я уже нашол такой способ:
Val(Edit1.Text,cx,c1);
Val(Edit2.Text,cy,c2);
Val(Edit3.Text,radius,c3);
if (c1<>0) or (c2<>0) or (c3<>0) then
begin
StatusBar1.SimpleText:='ВВЕДИТЕ ЧИСЛОВОЕ ЗНАЧЕНИЕ!';
exit;
end;