so far i have,

procedure TDiceForm.resetClick(Sender: TObject);

begin
randomize;
for j := 1 to 6 do
numb [j] := 0;
Button11.Caption := '';
Button12.Caption := '';
Button13.Caption := '';
Button14.Caption := '';
Button15.Caption := '';
Button16.Caption := '';

end;

procedure TDiceForm.startstopClick(Sender: TObject);
begin
Timer1.Enabled := not Timer1.Enabled;
end;

procedure TDiceForm.Timer1Timer(Sender: TObject);

var die: integer;
begin
die := random(6) + 1; {random numbers of dice: 1-6}
DieImage.Picture.LoadFromFile(IntToStr(die) + '.bmp'); {convert die value to
string, add bitmap extension, load from file, and display as DieImage}
numb[die] := numb[die] + 1;
case die of
1:CountOneButton.Caption := IntToStr(numb[die]);
2:CountTwoButton.Caption := IntToStr(numb[die]);
3:CountThreeButton.Caption := IntToStr(numb[die]);
4:CountFourButton.Caption := IntToStr(numb[die]);
5:CountFiveButton.Caption := IntToStr(numb[die]);
6:CountSixButton.Caption := IntToStr(numb[die]);

end;