Error TStringList creados en tiempo de ejecución

[subzero]

siguiendo la sugerencia de ixMIKe esto es lo que hago....

Código Delphi [-]
private
  Lista : TStringList;
..............

procedure TForma1.FormShow(Sender: TObject);
begin
  Lista := TStringList.Create;
  /*Aqui lleno tanto la lista como el Combobox*/
  Lista.Clear;
  ComboBox1.Clear;
  with Query do
  begin
    close;
    Sql.Clear;
    Sql.Add('SELECT campo_lista, campo_combo');
    Sql.Add('FROM nombre_tabla');
    open;  first;
    while not (eof) do
    begin
      lista.Add(fieldbyname(campo_lista).AsString);
      combo.Add(fieldbyname(campo_combo).AsString);
      next;
    end;
    close;
 end;  
end;


procedure TForm1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Lista.Free
end;

Espero que ahora este mucho más claro... saludos!