[Dym_aka_Han]

Спасибо! Но, так не пойдет(
Вот это вот работает.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,k,p:integer;
begin
  k:=0;
  p:=0;
  for i:=0 to stringgrid1.ColCount-1 do
  begin

    if strtoint(stringgrid1.Cells[i,0])>0 then begin
    stringgrid2.Cells[k,0]:=stringgrid1.cells[i,0];
    inc(k); end;

    if strtoint(stringgrid1.Cells[i,0])<0 then begin
    stringgrid3.Cells[p,0]:=stringgrid1.cells[i,0];
    inc(p); end;

  end;


end;