Как определить день недели

Как определить день недели

procedure TForm1.Button1Click(Sender: TObject);
var
  d: TDateTime;
begin
  d := StrToDate(Edit1.Text);
  ShowMessage(FormatDateTime('dddd',d));
end;

купить билеты на олимпиаду . Конверты для малышей трансформеры. Конверты зимние трансформеры. . Визитки!Выгодные цены и сроки - сайт визитка недорого. Реклама в интернете. Недорого. . паронит пон . клинкер плитка .