[ecfisa]

Hola Karen.

Espero haberte entendido bién, proba si te funciona de este modo:

Código Delphi [-]
procedure PasarAStrGrd(const Cad: string; const aRow: Integer; aGrid: TStringGrid);
var
  i: Integer;
  TS: TStrings;
begin
  with TStringList.Create do
  try
    DelimitedText:= Cad;
    Delimiter:= ',';
    for i:= Count-1 downto 0 do
      if Strings[i] = '' then 
        Strings[i] := ' ';   
    aGrid.ColCount:= Count-1; // (*)    
    for i:= 0 to Count-1 do
      aGrid.Cells[i + aGrid.FixedCols, aRow]:= Strings[i];
  finally
    Free;
  end;
end;

Llamada de prueba:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Cadena: string;
begin
  Cadena:= '1,18042012,Abono,15,00,6446,,FMC1998I,464.00,00075272,2,18042012,Abono,07,32,6446,,464.00,0.00,0007  5272,';
  PasarAStrGrd(Cadena , 1, StringGrid1);
end;

Saludos.

Edito: (*) Esta línea la usé para garantizar que existan en el StringGrid tantas columnas como campos se le envían. La podés quitar si ya tenes definido con anterioridad cuantas columnas serán. ( si hay algo en lo que no fuí claro por favor decime )