[lmikle]

Ну и в чем проблема? Все стандартное.
1.

Код:

procedure Timer1Timer(Sender : TObject);
begin
  Button1.Left := Random(Self.Width);
  Button1.Rignt := Random(Self.Height);
end;

procedure Button1Click(Sender : TObject);
begin
  If Timer1.Enabled = False 
    Then Timer1.Enabled := True
    Else Timer1.Interval := Timer1.Interval div 2;
end;

2.

Код:

uses DateUtils;

procedure Button1Click(Sender : TObject);
var
  D1, D2, DIff : TDateTime;
begin
  D1 := StrToDateTime(Edit1.Text);
  D2 := StrToDateTime(Edit2.Text);
  Diff := Abs(D1-D2);
  Label1.Caption := IntToStr(Int(Diff)) + ' дней ' + TimeToStr(TimeOf(Diff));
end;

3.

Код:

procedure Button1Click(Sender : TObject);
begin
  If OpenDialog1.Execute Then 
    Image1.Picture.LoadFromFile(OpenDialog.FileName);
end;

А в следующий раз со школьными заданиями - в сад.