[Klyaksa]

Ну вроде разобрался.Данные у меня стирались из-за того что переменные были не глобальными.

Код:

unit center;

interface
 uses windows,sysutils;

 procedure kvadrat(x,y:integer);
var
  xmax,ymax  : integer;
implementation
 uses boot;
 procedure kvadrat(x,y:integer);

 begin
  xmax:=x;
  ymax:=y;
 

 end;
end.

До этого у меня было вот так:

Код:

unit center;

interface
 uses windows,sysutils;

 procedure kvadrat(x,y:integer);

implementation
 uses boot;
 procedure kvadrat(x,y:integer);
var
  xmax,ymax  : integer;
 begin
  xmax:=x;
  ymax:=y;
 

 end;
end.