Hola otra vez! Ya tengo el fallo, lo digo x si a alguien le interesa deciros en lo q he fallado. Bueno en el procedimiento abrirD1() dond pone
Código Delphi
[-]
Dtbdatos1.Params.Add('user_name = ' + user1);
y en los siguientes params el igual debe estar junto.
Código Delphi
[-]
Dtbdatos1.Params.Add('user_name=' + user1);
gracias de todas formas