Вопрос по работе с МЕМО

[combays]

Суть программы:
1)Программа через определённое время проверяет соединение с интернетом,если всё ок,
то проверяет веб страницу ,записивает все данные в МЕМО1
2)Потом он проверяет в мемо1 первую строку,если там написано "команда1","команда2",...,"кома на Н",то
соответственно выполняет "команда1","команда2",...,"кома на Н"...!Причём команда прописывается токо ОДНА в строке!
3)И ПОСЛЕ он идёт в спячку на Н"ное время,
а потом повторяет этот цикл...

Что готово:
первый пункт готов,НО вот в чём выдаёт ошибку,ошибка в "елсе",без него всё чики фрики:

procedure TForm1.FormActivate(Sender: TObject);
var
  nam, des,des2, mon : string;
begin

  if IsConnectedToInternet then


           mamamiya('http://molokososi.x10.mx/xaker.html',nam,des,des2,mon);
  Memo1.Lines.Text := nam; //Название
  Memo1.Lines.Add(des); //описание
  Memo1.Lines.Add(des2); //описание
  Memo1.Lines.Add(mon) ;//Цена

else
       ShowMessage('interneta net')
end;

ВОПРОС:
1)как исправить ошибку
2)как сделать чтоб порграмма читала из мемо1 первую строку,и выполняла соответственную команду

[Alex Cones]

procedure TForm1.FormActivate(Sender: TObject);
var
  nam, des,des2, mon : string;
begin

  if IsConnectedToInternet then
   Begin
     mamamiya('http://molokososi.x10.mx/xaker.html',nam,des,des2,mon);
     Memo1.Lines.Text := nam; //Название
     Memo1.Lines.Add(des); //описание
     Memo1.Lines.Add(des2); //описание
     Memo1.Lines.Add(mon) ;//Цена
   End
  else
   ShowMessage('interneta net')
end;

Не?

[Пепел Феникса]

первое Алекс исправил.
а насчет второго что имеется в виду под командой?(пример нужен)

[Angel of Live]

Сообщение от combays

ВОПРОС:
1)как исправить ошибку
2)как сделать чтоб порграмма читала из мемо1 первую строку,и выполняла соответственную команду

1) Уже исправили
2) Ну если я все правильно понял - то...

if Memo1.Lines[0]='command_1' then
  begin
  ShowMessage('Выполнить команду №1');
  exit;
  end;
if Memo1.Lines[0]='command_2' then
  begin
  ShowMessage('Выполнить команду №2');
  exit;
  end;
if Memo1.Lines[0]='command_3' then
  begin
  ShowMessage('Выполнить команду №3');
  exit;
  end;

[combays]

Всем спасибо,всё получилось...СПАСИБО Огромное)
ПС программа не для плохих намерений,просто брат достал с игрой Контр Стрике,так вот я ему сюрприз готовлю)