Delphide Sayı oyunu 2

[TurkDelphi]

Bu sefer sayısı siz bulun bilgisayar tutsun

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
s:integer;
ed:integer;
kackeredenedi:integer;
say:integer;

implementation

{$R *.DFM}

function randomNumber(LBound, HBound: Integer):Integer;
begin
randomize;
Result := LBound + random(HBound - LBound + 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
s:=randomNumber(3,999);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ed:=strtoint(edit1.text);
kackeredenedi:=kackeredenedi+1;
if ed=s then
showmessage('tebrikler '+inttostr(kackeredenedi)+'denemede buldunuz')
else
begin
say:=ed;
if s<ed then
showmessage('Aşağı')
else
showmessage('Yukarı');
end ;
end;

end.
örnek sitemde :lol: adresi yazsam ayıp olurmu acaba :lol: