Запомните: во всех операторах цикла кроме REPEAT и в условном операторе IF - если вам нужно выполнить ОДНУ команду - пишите без begin и end. Если надо выполнить блок операций, заключайте его в begin...end. Например:
Code: Select all
if Dead then
flag := true;
addtosystemjournal('test');
Code: Select all
if Dead then
begin
flag := true;
addtosystemjournal('test');
end;