Начало роботы в Делфи

[sv2311]

Помогите вывести в метке сокращенное название поточного месяца,используя программное опрос даты

[IT-man]

 const
    stDay : array[1..7] of string[11] =
       ('воскресенье','понедельник','вторник',
        'среда','четверг','пятница','суббота');

    stMonth : array[1..12] of string[8] =
       ('января','февраля','марта',
        'апреля','мая','июня','июля',
        'августа','сентября','октября',
        'ноября','декабря');

................
var
Present: TDateTime;      // текущая дата и время
  Year, Month, Day : Word; // год, месяц и число, как
                           // отдельные числа
begin
 Present:= Now; // получить текущую дату
  DecodeDate(Present, Year, Month, Day);
  Label2.Caption := 'Сегодня '+IntToStr(Day)+ ' ' +
    stMonth[Month] + ' '+ IntToStr(Year)+
    ' года, '+ stDay[DayOfWeek(Present)];end;

[sv2311]

Огромное спасибо!!!!

[sv2311]

и еще если можно помочь в написание алгоритма и программы решения заданого арифметического уравнения для любого значения переменных. в паскале понимаю а вот делфи только осваиваю.....прошу помощи

b=Exp(-x*ln(2))*sqrt(x+exp(1/4*ln(abs(y))))

[IT-man]

на паскале :

 readln(x);

на делфи

x:=strtofloat(edit.text);

на паскале :

 writeln(b);

на делфи

edit.text:=floattostr(b);

вся разница!

[sv2311]

блин я все ровно не могу зделать ту функцию - как его зачудить - помогите - пожалуйста!!!!