if Partnerek_Torles.Active then Partnerek_Torles.Close;
Partnerek_Torles.SQL.Clear;
Partnerek_Torles.SQL.Add('DELETE FROM Objektumok WHERE Objektum='+quotedstr(DBLookupComboBox1.Text));
Partnerek_Torles.ExecSQL;