{i didn't check if it compiles}
procedure OnJoinGame(ID: byte; Team: byte);
begin
    WriteLn(IDToName(ID)+' joined the game (Team is '+IntToStr(Team));
end;

procedure OnJoinTeam(ID: byte; Team: byte);
begin
    WriteLn(IDToName(ID)+' joined some team (Team is '+IntToStr(Team));
end;

procedure OnLeaveGame(ID: byte; Kicked: boolean);
begin
    WriteLn(IDToName(ID)+' has left the game');
end;