Select DISTINCT
  c.SNCOUNTER,
  c.SNMODUL,
(select dec2hex  from inttohexstr(c.snmodul)) snmodulhex,
  c.HUBID,
  c.BILLINGIDTU ,
c.note,c.CHANNEL,
  p.adres,
  p.countertype,
  p.counternum,
  p.data,
  p.fio
--,(select loaddays from tools) loaddays
from COUNTER c
left outer join payers p on (p.billingidtu = c.billingidtu) 
--inner join balansgrdetail bd on (bd.sncounter=c.sncounter and bd.balansgrid=-1)
order by c.SNCOUNTER

Select 
  BILLINGIDTU,
  ADRES,
  COUNTERTYPE,
  COUNTERNUM,
  DATA,
  FIO,
  cast(BILLINGIDTU as varchar(20)) BILLINGIDTUTEXT
from PAYERS 
order by BILLINGIDTU

procedure TFmain.SpeedButton6Click(Sender: TObject);
var I : integer;
    Flag : boolean;
begin

  Flag := True;
  for  I := 0 to Screen.FormCount-1 do
  begin
    if Screen.Forms[I].Name='Fdata' then Flag := False;
  end;
  if Flag then
  begin
    fdata:=tfdata.Create(Application);
    fdata.Show;
    fdata.Update;

  end else begin Fdata.WindowState := wsNormal; Fdata.Show; end;
 
end;