[Investment]

Truco 78 del trucomania (espero que te sirva):

Hallar el numero de semana del año de una fecha

   
   procedure TForm1.Button1Click(Sender: TObject);
    var  
        frstDay,toDay : TDateTime;  
        week : Integer;
    begin 
       frstDay := StrToDate('1/1/96');
       toDay := StrToDate(Edit1.Text);
       week := Trunc((toDay - frstDay) / 7) + 1;
       Label1.Caption := IntToStr(week);
    end;