var Query: TADOQuery;
begin
  Query:=TADOQuery.Create(nil);
  try
    try
      with Query do
      begin
         ConnectionString:='<строка коннекта>';
         SQL.Text:='select Id from AccTable where Account = :pf0';
         Parameters[ 0 ].Value:='12345678900987654321';  //это номер счёта, и сдесь вываливается ошибка;
         Open;
         <Делаем то, что надо>
         Close;
   except
      raise;
    end;
  finally
    FreeAndNil(Query);
  end;
end;

end;

Parameters[ 0 ].DataType:=ftString