procedure DM.BorrarComentario(const UserName: string);
var
qy: TADOQuery;
begin
qy := TADOQuery.Create(nil);
try
qy.Connection := ADOConnection1;
qy.Close;
qy.SQL.Text := 'DELETE FROM COMENTARIOS WHERE NOMBRE_USUARIO = :USUARIO';
qy.Parameters.ParamByName('USUARIO').Value := UserName;
qy.ExecSQL;
finally
qy.Free;
end;
end;