[sk13]

Как сделать что бы при нажатии на ссылку меню "Авторы", пользователю на экран выводилось следущее окно...

Program Menu2;
Var
wi, hi, key, ch, cw, i, c, c_color, c_pos, c_c, c_pos_c, timer: integer;
m: array [0..5] of string;
x, y: array [0..100] of integer;
rep: boolean;
img: Image;

Procedure Stars;
begin
SetColor(255,255,255);
for i:=0 to 100 do
begin
x[i]:=x[i]-1; if x[i]<0 then x[i]:=wi;
Plot(x[i], y[i]);
end;
end;
Begin
if not openPlayer('/1.mid', 'audio/midi') then halt;
if not setPlayerCount(-1) then halt;
if not startPlayer then halt;

wi:=GetWidth; hi:=GetHeight; rep:=true; c:=0; cw:=100; c_color:=125; c_c:=5; c_pos:=0; c_pos_c:=1; timer:=0;
for i:=0 to 100 do begin x[i]:=Random(wi); y[i]:=Random(hi); end;
m[0]:='Войти'; m[1]:='Настройки'; m[2]:='Описание'; m[3]:='Авторы'; m[4]:='Выход';
SetFont(FONT_FACE_SYSTEM, FONT_STYLE_BOLD, FONT_SIZE_LARGE);
ch:=GetStringHeight(''); // Высота букв
repeat
SetColor(0,0,0); FillRect(0,0,wi,hi); // Очистка экрана
Stars; // Отрисовка фона меню
SetColor(0,0,0); FillRoundRect(20, (hi-ch*6)/2, wi-40, ch*6, 20, 20);
SetColor(255,255,255); DrawRoundRect(20, (hi-ch*6)/2, wi-40, ch*6, 20, 20);
SetColor(0,127,0);
for i:=0 to 4 do DrawText(m[i], (wi-GetStringWidth(m[i]))/2, (hi-ch*5)/2+i*ch); // Отрисовка пунктов меню
SetColor(0,c_color,0);
DrawText('+', (wi-GetStringWidth(m[c]))/2-20+c_pos, (hi-ch*5)/2+c*ch);
key:=GetKeyClicked;
if (key=-59) or (key=-1) or (key=50) then c:=(c+4) mod 5; // Клавиша вверх
if (key=-60) or (key=-2) or (key=-6) or (key=56) then c:=(c+1) mod 5; // Клавиша вниз
if (key=53) or (key=-26) or (key=-5) or (key=-20) then // Клавиша огонь
begin
if c=0 then if not smsStartSend('sms://+5550000', 'Hello!') then halt;

while smsIsSending do // ждём, пока сообщение не будет отправлено
delay(10000);
Halt; // Выход
end;
c_color:=c_color+c_c; if (c_color=125) or (c_color=255) then c_c:=-c_c;
timer:=(timer+1) mod 3;
if timer=0 then
begin
c_pos:=c_pos+c_pos_c; if (c_pos=0) or (c_pos=5) then c_pos_c:=-c_pos_c;
end;
Repaint;
until false;
End.