Hallo xman236,
als kleinen Tipp, das würfeln lässt sich auch kürzer gestalten:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=random(6)+1;
Edit2.Text:=random(6)+1;
Edit3.Text:=random(6)+1;
end;
Bei der anderen Procedure vermisse ich die getippte Zahl, die du wie Wolfgang geschrieben hat, dann nur abfragen brauchst
EDIT:
oh, False Pretense war schneller