No sé si hay alguna función en concreto para eso, pero por si no la hay:
Código Delphi
[-]
function DiaSemanaAFecha(diaSemana, numSemana, anho: integer): TDate;
var
Fecha1Enero : TDate;
begin
Fecha1Enero := EncodeDate(anho, 1, 1); result := Fecha1Enero + 7 * (numSemana - 1) + diaSemana;
end;