[[egostar]]

Hola alguna vez hice eso mismo que solicitas, solo que no a base de datos, así que puedes modificarlo para que uses base de datos

Código Delphi [-]
procedure TForm1.Memo1Change(Sender: TObject);
var
  i,Indx : integer;
begin
  Indx  := 0;
  for i := 1 to length(Memo1.Text) do begin
      case Memo1.Text[i] of
         ' ',#10,#13 : begin
             StringGrid1.Cells[1,Indx] := '0';
             Indx := Indx + 1;
         end
         else begin
                StringGrid1.Cells[0,Indx] := StringGrid1.Cells[0,Indx]+Memo1.Text[i];
         end;
      end;
  end;
  StringGrid1.Cells[1,Indx] := '0';
end;

Salud OS