Delphi - TSQLQuery lämnar en process på MySQL även efter att ha frigjorts

Återskapa inte din anslutning om och om igen, inte heller din fråga. Använd parametrar för frågan; öppna anslutningen en gång, fyll i parametrarna för frågan, kör den, stäng frågan (men inte anslutningen), fyll i frågeparametrarna igen och kör den igen.

Något i stil med detta (med Advantage Database Server, men konceptet är detsamma):

// Both Create() calls should be followed by try..finally to ensure they're 
// cleaned up after. Omitted for brevity.
Conn := TAdsConnection.Create(nil);
// Configure connection parameters here
Conn.Open;

Qry := TAdsQuery.Create(nil);
Qry.AdsConnection := Conn;
Qry.SQL.Add('INSERT INTO SOMETABLE (COL1, COL2, COL3)');
Qry.SQL.Add('VALUES (:COL1, :COL2, :COL3)');
while not OtherTable.Eof do
begin
  Qry.ParamByName('COL1').AsInteger := OtherTable.FieldByName('COL1').AsInteger;
  Qry.ParamByName('COL2').AsString := OtherTable.FieldByName('COL2').AsString;
  Qry.ParamByName('COL3').AsDateTime := OtherTable.FieldByName('COL3').AsDateTime;
  Qry.ExecSQL;
  Qry.Close;
  OtherTable.Next;
end;
// Free query
Conn.Close;
// Free connection.