Игра угадайка

[ОДИНОЧЕСТВО В СЕТИ]

для начала

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin
   if key=#13 then begin ent:=strtoint(edit1.Text);
   if ent > x  then label1.Caption:='Меньше';
 if ent < x  then label1.Caption:='Больше';
 if ent = x  then Showmessage('Вы угадали!!!');
 dec(k);
 label2.caption:=inttostr(k);
 if k=0 then Showmessage('Вы проиграли');end;
end;

ну а по поводу сложности

case radiogroup1.ItemIndex of
   0:k:=25;
   1:k:=20;
   2:k:=15;
 end;