var image:array[0..images]of tbitmap; //Банк картинок
...
procedure DrawElement(id:byte; //Номер выводимой в буфер картинки из банка картинок
   x,y:integer; mode:cardinal=SRCCOPY); //Координаты и режим копирования; режим по-умолчанию просто копирование
begin
   bitblt(buffer.Canvas.Handle,x,y, //Указатель на буфер и координаты вывода
          image[id].width,image[id].height, //Размеры картинки
          image[id].Canvas.Handle,0,0,mode); //Указатель на картинку, координаты начала на ней и режим копирования
end;

procedure DrawMask(image,mask:byte;x,y:integer);
begin
   drawelement(mask,x,y,SRCAND);
   drawelement(image,x,y,SRCPAINT);
end;

if ((image1.top<image2.top-image1.height) //Сравниваем координаты компонентов
   and (image1.top>image2.top+image2.height)) //по вертикали (top - расстояние от верхнего края формы)
   and ((image1.left<image2.left-image1.width) //и по горизонтали (left - расстояние от левого края формы)
   and (image1.left>image2.left+image2.width)) //с учётом их размеров (height - высота, width - ширина)
then showmessage('блаблабла');

Memo1.Lines.LoadFromFile('имя_файла');
RichEdit1.Lines.LoadFromFile('имя_файла');

AssignFile(файловая_переменная, 'имя_файла');
Open(файловая_переменная);
Read(файловая_переменная, текстовая_перменная);
CloseFile(файловая_переменная);

var
   Form1: TForm1;
   img1dragging:boolean; //Флаг перетаскивания 1-ой картинки
   lastpos:tpoint;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
begin
   img1dragging:=true;
   lastpos.x:=mouse.CursorPos.x-image1.left;
   lastpos.y:=mouse.CursorPos.y-image1.Top;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
begin
   if img1dragging then
   begin
     if (image1.top >(image2.top -image1.height)) and
        (image1.top <(image2.top +image2.height)) and
        (image1.left>(image2.left-image1.width))  and
        (image1.left<(image2.left+image2.width))
     then
     begin
       showmessage('текст');
       //Вот тут нужно либо вернуть картинку на предыдущую позицию,
       //либо сместить куда-нибудь, чтобы она снова не задевала вторую картинку
       image1.Top:=10;
       image1.Left:=10;
     end else
     begin
       image1.Top:=mouse.CursorPos.Y-lastpos.Y;
       image1.Left:=mouse.CursorPos.X-lastpos.X;
     end;
   end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
begin
   img1dragging:=false;
end;