[Ivanius]

все спасибо я уже на другом форуме прочитал где надо обьявлять переменный чтобы они были видимы для всех(не в глобал) и сделал теперь все работает скоро доделаю игрушки и покажу всему мируна прошлую версию 20тыс чел подсадил сделал вот так:
"unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls, Menus, global;
var
maxmp : integer;
maxhp : integer;
man : integer;
heal: integer;
ydar: integer;
kput: integer;
promah: integer;
block :integer;
i : integer;
k : integer;
j : integer;
healBPAr: integer;
manBPAr: integer;
maxmpBPAr:integer;
maxhpBPAr:integer;

type
Tcarnage1 = class(TForm)
tbl: TImage;"
и все эти переменные используються везде и негде не теряються