Konsola + GG

Witam. Mam 2 problemy:

Pierwszy z komponentem THGG. Oto kod:

  if MessageContent = 'CD open' then mciSendString('Set cdaudio door open wait',nil,0,handle)
  else if MessageContent = 'CD close' then mciSendString('Set cdaudio door closed wait',nil,0,handle)
  else if MessageContent = 'a' then
   begin
    showmessage('działa');
   end;

to jest kod zdarzenia OnMessage. Wysyłam na ten numer komunikat 'CD open' i CD-Rom się otwiera. Ale gdy wyslę komunikat 'CD close' to nic się niedzieje. Prościej mówiąc działa tylko pierwszy wysłany komunikat, reszta nie. Jak zrobić aby wszystkie polecenia dzialały.

Problem drugi.
Chcę napisac aplikację konsolową tak jak w Countr Striku. Np. wpisuje polecenie 'send "hello world" for all'
a program rozbiera na polecenia tą komende. Przykładowo najpierw sprawdza główna komendę czyli wtym przypadku 'send' później program wie że w cudzysłowiach jest treść wiadomości która wyślę, a na koniec program pobiera parametry wysłania 'for all' czyli do wszystkich. w Skrócie chodzi mi o to aby program ze zwykłego ciagu znaków String szukał określonych słów i po ich znalezieniu odpowiednio do nich się zachowywał.

Proszę o odpowiedź na moje pytania. Z góry dziękuje.

Ehh... bo MessageContent zanika po 2 wyslaniu wiadomosci. Zobacz na
http://4programmers.net/Forum/viewtopic.php?id=112624
A na rozbijanie... to np
var
S3 : String;
begin
S3:= MessageContent[1]+MessageContent[2]+MessageContent[3];
if S3 = 'say' then
begin
Delete(MessageContent, 1, 4);// usuniecie say i spacji
ShowMessage(MessageContent) ; //wyswietlenie to co jest po say
end;

Ehh kolejny niby hacker... na http://pastebin.4programmers.net/2916 masz moj debliny program.. nie wiem co mnie zmusilo go napisac :( pozmieniaj MessageContent na edit1.text itp.. jesli znasz delphi to wiesz co i jak