[bsoulfly]

Esta es la solucion, lo que pasaba esque no enganchaba el query, me faltaba esa linea de codigo:

procedure TFconsulAlumno.Button1Click(Sender: TObject);
var
sql:string;

begin
ModuloDatos.ADOconnection1.connected:=true;
ModuloDatos.Tabla1.Active:=true;
ModuloDatos.TrabajoRecepcional.Active:=true;
if RadioButton1.Checked then
Begin
ModuloDatos.Query1.sql.Clear;
sql:='select alumno.Matricula,alumno.Nombre, trabajorecepcional.Tema from alumno,trabajorecepcional where alumno.ID_T=trabajorecepcional.ID_T';
ModuloDatos.Query1.sql.add(sql);
ModuloDatos.Query1.Active:=true;
Modulodatos.DataSource1.DataSet:=ModuloDatos.Query1;
Consultas.DataSource:=Modulodatos.DataSource1;
end;