[Asinkrit]

Учи синтаксис..)

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  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;
end;