var a,b,x: real;
begin
a:= strtofloat (edit1.Text);
repeat
b:= strtofloat (edit2.Text)
if b<>0 then
x:= a/b
else
do it fucking again...;
showmessage (floattostr (x));