Изображения *dat для паскаль, up Опции

[Vanya]

Привет Люди! Как открыть в паскале dat* Картинки? Точнее даже не так. Как свои dat картинки окрыть.
З.Ы.: Есть исходник кода + файлы(dat картинки). Программа работает. Если я вставляю свои dat они не отображаются( Почему?
Надеюсь суть проблемы понятно объяснил...
Очень надо. Спасибо!

[-TarasBer-]

Инициализируешь графику.
Рисуешь картинку.
Тебе надо сохранить часть, попавшую в прямоугольник X1,Y1,X2,Y2

Делаешь примерно так:
(я не проверял, писал сразу в браузер)

procedure Save(X1, Y1, X2, Y2: integer; const FileName: string);
var
  f: file of byte;
  size: integer;
  p: pointer;
begin
  Size := ImageSize(X1,Y1,X2,Y2);
  GetMem(P, Size);   { Распределяем память в куче }
  GetImage(X1,Y1,X2,Y2, P^);
  
  Assign(f, FileName);
  Rewrite(f);
  BlockWrite(f, P^, Size);
  Close(F);

  FreeMem(P, Size);  
end;