на делфи написать программу. При нажатии на кнопки говорились фразы

[константин029]

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

[Аватар]

...и что бы можно было грабить корованы

[rrrFer]

и домики набигали

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses   inifiles,  mmsystem,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    ini:TIniFile;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
 //По клику кнопки запускаем таймер считывая его интервал
  with ini do begin
    Timer1.Interval:=ReadInteger(TButton(Sender).Name,'Timer',0);
    Timer1.Enabled:=true;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  ini.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'Programma.ini');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //Таймер запускает WAV звук из файла который лежит возле программы
 PlaySound(PChar(ExtractFilePath(ParamStr(0))+ReadString(TButton(Sender).Name,'Sound',0)),0,SND_FILENAME);
end;

end.

Пример INI файла для этой программы:

[Button1]
Timer=1000
Sound=musik.wav

И так для остальных кнопок.