Hallo,
Zitat:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := DateToStr(Weekoftheyear(now));
end;
Du mischt hier zwei Funktionen:
das Datum bekommst Du mit
DateToStr(Now); // als String
, die Woche mit
IntToStr(WeekOfTheYear(Now)); // als String