1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TPlan.CheckImages;
var S,T: Integer;
begin
  ChDir(ExtractFilePath(ExpandFileName(ParamStr(0))));
  for S:=0 to 3 do
    if NOT FileExists('images'+ GIMAGE[S].img) then
      CreateBitmap(GIMAGE[S].indH,GIMAGE[S].indW,'G');
  for T:=0 to 3 do
    if NOT FileExists(PIMAGE[T].img) then
      CreateBitmap(GIMAGE[T].indH,GIMAGE[T].indW,'P');
end;