Aquí está tu código del principio:
Código Delphi
[-]uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBTables, DB, Grids, DBGrids, StdCtrls, n00o001;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Database1: TDatabase;
Movinom: TTable;
DataSource1: TDataSource;
Query1: TQuery;
DataSource2: TDataSource;
Button1: TButton;
Trabajador: TTable;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
wimpo: double;
xImpo:string;
begin
query1.SQL.Clear;
query1.SQL.Add('select movinom.idtrab, idafecta, importe, paterno,materno,nombre from movinom,trabajador ');
query1.SQL.Add('where movinom.idtrab=35 and anodenom=2012 and numdenom=1 and movinom.idtrab=trabajador.idtrab');
query1.Open;
query1.First;
end;
end.