[Sk@zk@]

Что-то не получается... если правильно поняла, то код для кнопки должен выглядеть так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
with ADOQuery1 do
begin
   ADOQuery1.Close;
   SQL.Clear;
   ADO.Query1SQL.Add('SELECT *');
   ADO.Query1SQL.Add('FROM 'Таблица заказов'');
   ADO.Query1SQL.Add('WHERE 'Код'='+Edit3.Text);
   ADOQuery1.Open;
  end;

Ругается на первую строчку, пишет "Declaration expected but 'with' found"... ну и дальше тоже ошибки выкидывает...