duvida ibdataset

Amigos.. Boa Tarde

Seguinte, estou fazendo uma pesquisa so que quero que retorne para mim apenas o campo CTL_DEVIA o meu select esta assim ´SELECT CTL_DEVIA FROM CONTROLE WHERE CTL_VENDEDOR = 200, teste esse select no banco direto ele da tudo certinho, mas qdo vou jogar no delphi ele nao da erro mas tbm nao me mostra nada, o codigo no delphi esta assim:

procedure TForm1.Button1Click(Sender: TObject);

var
codigo:integer;
strSQL :String;

begin
codigo := StrToInt(Edit1.Text);
strSQL := ´SELECT CTL_DEVIA FROM CONTROLE WHERE CTL_VENDEDOR =´ + IntToStr(codigo);
with dm_dados.qry_consulta do
begin
close;
sql.Clear;
sql.Add(strSQL);
open;
end;
end;
Estou usando delphi 7, banco firebird

Agradeço desde já a ajuda !