Кружок нубов(Вопрос-Ответ)

[PIONER]

 var
 tick: Integer;

procedure Init;
begin
end;
function Pause(Timewait: Integer):Boolean;
// сквозная проверка без остановки скрипта (c)dmitry501
  var
    t : integer;
  begin
    result := false;
    t := Round(Time*86400);
    if  t > (tick + Timewait) then
      begin
        tick := t;
        result := true;
      end;
      end;
const
greeting=('1b 04 00 00 00');
victory=('1b 03 00 00 00');
advance=('1b 04 00 00 00');
yes=('1b 06 00 00 00');
begin
  buf:=HStr(greeting);
  SendToServer;
end;  //ТУТ ВЫДАЁТ ОШИБКУ<<<<<<<<<<<<<<<
begin
if pause(2) then;//+ 2 секунды ожидания
end;
begin
  buf:=HStr(victory);
  SendToServer;
end;
begin
if pause(2) then; //+ 2 секунды ожидания
end;

begin
  buf:=HStr(advance);
  SendToServer;
end;
begin
if pause(2) then; //+ 2 секунды ожидания
end;

begin
  buf:=HStr(yes);
  SendToServer;
end;
begin
if pause(2) then; //+ 2 секунды ожидания
end.

добавил задержку, но скрипт выдаёт ошибку на END(в скрипте указанно место), подскажите что неправильно или чего нехватает.