[marcoszorrilla]

Al final me ha dado tiempo hasta hacer un ejemplo:

Código Delphi [-]
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
 Numeros: array of double;
 nConta:Integer;
 Desviacion:Extended;
 
 begin
 Query1.Close;
 Query1.Sql.Clear;
 Query1.Sql.Add('Select Busqueda, Total');
 Query1.Sql.Add('From Factura');
 Query1.Sql.Add('Where Total Between 1 And 4');
 
 Query1.Open;
 
 SetLength(Numeros,Query1.RecordCount );
 
   For nConta:=1 to Query1.RecordCount  do
   begin
   Numeros[nConta - 1]:=Query1.Fields[1].Value;
   Query1.Next;
   end;
 
 Desviacion:= StdDev(Numeros);
 ShowMessage(FormatFloat(',0.000',Desviacion));
 end;

Un Saludo.