if PPNickNameLabel.Left > -400 then
begin
PPBoxDB.Left := (PPBoxDB.Left - 12);
PPNicknameLabel.Left := (PPNicknameLabel.Left -12);
PPNickName.Left := (PPNickName.Left -12);
PPCharacteristicsLabel.Left := (PPCharacteristicsLabel.Left -12);
PPCharacteristics.Left := (PPCharacteristics.Left -12);
PPBarriersLabel.Left := (PPBarriersLabel.Left -12);
PPBarriers.Left := (PPBarriers.Left -12);
PPUserNotesLabel.Left := (PPUserNotesLabel.Left -12);
PPUserNotes.Left := (PPUserNotes.Left -12);
end;
if PPBoxDB.Left < -400 then KillPPBox.Enabled :=false;