procedure TForm1.FormCreate(Sender: TObject);
var v:string;
z,x,c:integer;
begin
v:=combobox1.items[combobox1.itemindex];
if (v='Оскемен') then z:=1
ELSE
IF

if (v='Астана') then x:=1
else
if

if (v='Алмата') then c:=1
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (z=1) and (x=1) and (c=1) then
label1.Caption:='lala';

end;

randomize;
case random(2) of
   0: writeln('Да, конечно!'); //Ну, тут и дальше можно что угодно делать, что будет выводить это сообщение.
   1: writeln('Нет, я так не думаю.');
end;

procedure TForm1.edt11Change(Sender: TObject);
begin
    btn1.Enabled:=True;
    if edt1.Text='Имя игрока' then btn1.Enabled:=False;
end;

procedure TForm1.edt11Change(Sender: TObject);
begin
    if edt1.Text='Имя игрока' then btn1.Enabled:=False else btn1.Enabled:=True;
end;