En la consulta, lo que tienes que quitar es el campo T.COSTO del select y del group by, porque si esta en la consulta lo que el sum siempre te dará el mismo valor que el costo, o como mucho te sumara todos costes que sean iguales.
La sentencia tendria que quedar así
Código Delphi
[-]
ADOQUERY1.SQL.Text:='SELECT'+
' P.NOMBRE, P.APELLIDOS, P.NSS,D.Codigo, D.Descripcion, R.[Fecha de Atención],'+
' T.[TIPO DE ATENCIÓN], sum(T.Costo) as suma '+
' FROM Registro_de_atención R '+
' LEFT OUTER JOIN [RIS PACIENTES] P ON P.[Id RIS PACIENTE] = R.[RIS del Paciente]'+
' LEFT OUTER JOIN Tdiagnostico D ON D.idAtencion = R.IdAtención'+
' LEFT OUTER JOIN [TIPO DE ATENCIÓN] T ON T.[Id TIPO DE ATENCIÓN] = R.[Tipo de Servicio]'+
' WHERE P.[Id RIS PACIENTE] LIKE ''%'+Edit1.Text+'%''' +
'group by P.NOMBRE, P.APELLIDOS,'+
'P.NSS,D.Codigo, D.Descripcion, R.[Fecha de Atención],'+
' T.[TIPO DE ATENCIÓN]';