[lmikle]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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.

Код:

1 2 3 4 5 6 7 8 9 10 11

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.

Код:

1 2 3 4 5

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

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