Delphi - problema con sumar y restar

var
wcredictoactual : integer;
wcreditos : integer;

begin
wcredictoactual:= integer(Edtcredito.text);

if(wcredictoactual < 0) then
showmessage('Usted ya no tiene credito')
else
begin

wcreditos:= integer(Edtapuesta.text)+11;

Edtgancia.Text:= string(wcreditos);

no incrementa los creditos , lo que pasa es que yo tengo un crdito inicial de 10 y de alli voy gastanto uno por uno pero me pregunta si mi credito es < que 0 entonces ya no tengo, pero si hay credito a ese credito le resto uno y en apuesta pongo un credito, esto lo necesito para un trgamonedas

creo que tu solucion podria ser algo asi

var
wcredictoactual : integer;
wcreditos : integer;
begin
wcredictoactual := 0;
wcredictoactual:= strtoint(Edtcredito.text);

if(wcredictoactual <= 0) then
showmessage('Usted ya no tiene credito')
else
begin
wcreditos:= strtoint(Edtapuesta.text)+11;
Edtgancia.Text:= inttostr(wcreditos);
end;
end;