Ugeda på en given dato

Uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  aDate: TDate;
  days: array[1..7] of string;
begin
  days[1] := 'mandag';
  days[2] := 'tirsdag';
  days[3] := 'onsdag';
  days[4] := 'torsdag';
  days[5] := 'fredag';
  days[6] := 'lørdag';
  days[7] := 'søndag';
  aDate := DateTimePicker1.Date;
  ShowMessage(DateToStr(aDate) + ' er en ' + days[DayOfTheWeek(ADate)]);
end;

min dato som jeg vil 'konvatere' er en string som indeholder 20-09-2004

har fået det til at virke tak :-)