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;