stringrid1

cześć,to mój problemik: mam jedną kolumne stringrida w której mam liczby , i cche by od każdej liczby tej kolumny odejmowana była konkretna już podana wartość np w: edit1.text. i podawana na miejce istniejącej wartości... (lub do stringrida2 żeby podawało nowe wartości)

var
   liczba: integer;   //liczba która ma być odjęta
   i, Col:integer; //Col - nr kolumny w której dokonojemy zminy
begin
   col:=0;    //nr kolumny licząc od 0
   liczba:=StrToInt(Edit1.text);
   for i:=0 to StringGrid1.RowCount-1 do
      begin
        if StringGrid1.Cells[Col,i]='' then StringGrid1.Cells[Col,i]:='0';
        StringGrid1.Cells[Col,i]:=IntToStr(StrToInt(StringGrid1.Cells[Col,i])-liczba);
      end;
end;   

// dzięki za spostrzeżenie, poprawiłem + trochę pozmieniałem.

ok tylko mały szczegół, ta proc dodaje wartość liczba we wszystkich kolumnach wiersza Row a zeroxowi chodziło o odjęcie liczby we wszystkich wierszach kolumny Col. Jasne że to oczywiste... ale może nie dla każdego?