access violation og stringgrid

hejsa

jeg har lidt problemer med at indsætte noget text i et felt i mit stringgrid.
koden er her:

Procedure TForm1.AddInfoToGrid();
var
Rows: integer;
Grid: TStringGrid;
begin
GridAddRow(StringGrid1);
Rows := Grid.RowCount;
Grid.Cells[1,Rows] := EditCompany.Text;
end;

EditCompany er en almindelig Edit.
GridAddRow er min funktion til at indsætte en ekstra row(siger navnet også):-)

håber nogen kan hjælpe.