le cambie la variable x al tipo Tdatetime y me dice otro error, el mensaje que da es este (For loop control variable must have ordinal type) :S no la entiendo

lo he corregido de esta manera

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var SumarDias:Integer;
Fecha :TDateTime;
begin
SumarDias := 0;
Fecha := fechaIni.Date;
While FechaFin.Date >= Fecha do
begin
  if ( DayOfWeek (Fecha) <> 1) and ( DayOfWeek (fecha) <> 7) Then
    Begin
       inc(sumarDias);
   end;
  fecha := Fecha + 1;
end;
Label1.Caption := IntToStr(SumarDias)
end;

Pruebalo y comentas

gracias oscarac por tu codigo me funciona igual que el que me paso roman
que da una diferencia de 1 dia, la resolvi sumandoselo al final asi: :)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var SumarDias:Integer;
Fecha :TDateTime;
begin
SumarDias := 0;
Fecha := fechaIni.Date;
While FechaFin.Date >= Fecha do
begin
  if ( DayOfWeek (Fecha) <> 1) and ( DayOfWeek (fecha) <> 7) Then
    Begin
       inc(sumarDias);
   end;
  fecha := Fecha + 1;
end;
Label1.Caption := IntToStr(SumarDias+1)
end;

aunque cuando sumo todo un año me da una diferencia de 1 dia pero no voy a tener registros de un año jeje
de todas maneras gracias por haberme ayudado y a roman tambien,
ahora bien he buscado en otros post y en google para ver como programo un botom para importar datos puede ser de excel preferiblemente a una base de datos en sql server 2005, si sabes de algun post o una pagina donde pueda guiarme me avisas por favor
y Gracias nuevamente