[vmilyoshin]

Сделал так:

Код:

procedure TForm1.Button4Click(Sender: TObject);
begin
  try
  DataModule1.ADOQuery3.Active:= false;
  DataModule1.ADOQuery3.SQL.Clear;
  DataModule1.ADOQuery3.SQL.Add('SELECT * FROM FIO INNER JOIN TELEFON ON FIO.Код = TELEFON.id INNER JOIN POLIS ON FIO.Код = POLIS.id');
  DataModule1.ADOQuery3.Active:= true;
  finally
  end;
end;

Вылетает ошибка