Дельфи Опции

[GeK]

Как в Дельфи сделать такое:
1. Мне надо, что бы кнопка Button1 имела вид картинки(я делал через кнопку BitBtn1, но не получалось растенуть рисунок)
2. Что бы при наведении курсора на кнопку Button1 она преобретала другой вид, т.е. изменялся риссунок кнопки
3. При нажатии на кнопку Button1 появлялся текст в Edit1 или в Memo1, или (крайний случай) в Label1
4. При нажатии на кнопку Button2 открывалась конкретная папка на диске С:
5. При нажатии на кнопку Button3 открывалось другое окно программы
6. И может ли формат картинки, которая "налезает" на кнопку, быть в JPG?
7.Можно ли сделать так, что бы не было верхней виндовской панельки(свернуть, развернуть и закрыть окно)
(IMG:http://img56.imageshack.us/img56/4639/xxx8vg.th.gif)

[GREY-SPB]

Ну раз тема про дельфи, можно сюда моё.
Я ужасный ламер в кодинге. Скомпильте пожалуйста ниже приведённое, чтоб оно работало. А то я компилирую и вижу пустое окошко. Впрочем, этому еще предстоит научится.

Код

type

  TDoubleFunc = function(X: Double): Double;



function Integral(A, B, Eps: Double; F: TDoubleFunc): Double;



  function InternalCalc(A, B: Double; F: TDoubleFunc; N: Integer): Double;

  var

    x, dx: Double;

    i: Integer;

  begin

    dx := (B - A) / N;

    Result := 0;

    x := A;

    for i := 1 to N do

    begin

      Result := Result + dx * (F(x) + 4 * F(x + dx / 2) + F(x + dx)) / 6;

      x := x + dx;

    end;

  end;



var

  N: Integer;

  Prev: Double;

begin

  Result := InternalCalc(A, B, F, 4);

  N := 4;

  repeat

    Prev := Result;

    N := N shl 1;

    Result := InternalCalc(A, B, F, N);

  until (Result = 0) or (Abs((Result - Prev) / Result) < Eps);

end;