probla con consulta sql en dbgrid

[bsoulfly]

Hola que tal,soy nuevo en el foro,siempre que tenia una duda buscaba en este foro la respuesta, pero esta vez busque y no encontre, bueno tal vez sea porque estoy mas dormido que despierto(despues de un jarabe para la tos y varias pastillas antigripales). Bueno mi problema es este, resulta que necesito realizar una consulta en sql que me deberia arrojar datos de 2 campos de la tabla alumno y 1 mas de la tabla TrabajoRecepcional, pero me muestra todos los datos de la tabla alumno. Intente con una consulta mas sencilla pero me sigue mostrando todos los datos de la tabla alumno en el dbgrid.

procedure TFconsulAlumno.Button1Click(Sender: TObject);
var
sql:string;
begin
ModuloDatos.ADOconnection1.connected:=true;
ModuloDatos.Tabla1.Active:=true;
ModuloDatos.TrabajoRecepcional.Active:=true;
Consultas.DataSource:=ModuloDatos.DataSource1;
if CheckBox1.Checked then
Begin

ModuloDatos.Query1.sql.Clear;
//sql :='SELECT Matricula,Nombre FROM alumno';
sql :='select Matricula,Nombre,Tema from alumno,trabajorecepcional where alumno.ID_T=trabajorecepcional.ID_T';
ModuloDatos.Query1.sql.add(sql);
ModuloDatos.Query1.Open;
end;
end;