Onclick på knapper

Jeg sidder lige med et problem, og så er dette jo det rette sted at henvende sig:

Jeg opretter x antal knapper dynamisk, og nu er mit spørgsmål:
Hvordan får jeg tildelt en onclick på knapperne.
Knapperne skal vise et billede når der bliver trykket, men det er ikke det samme billede hver knap skal vise, det afhænger af værdien af i.
Håber det er forståeligt


var
  StartTop := 33;
  YDiff    := 25;
  For i := 1 to StrToInt(ReadRegKey('Antal billeder')) do
  begin
    bBtn          := TButton.Create(Self);
    bBtn.Name    := 'dBtn'+ IntToStr(i);
    bBtn.Caption  := 'Vis billed';
    bBtn.Width    := 50;
    bBtn.Left    := 560;
    bBtn.Top      := StartTop-3;
    InsertControl(bBtn);

    inc(StartTop, YDiff);
  end;
end;

MVH Dennis