[Farser21]

saurn, спасибо, но есть небольшая проблема. Не как не могу настроить координаты.
Ранее я выставлял их так

Код:

procedure ShowPicHint(const PicFilePath: String);
var
    pt: TPoint;
begin
    if not GetCursorPos(pt) then Exit;
    InfoPic.Bitmap.LoadFromFile(PicFilePath);
    try
        with PicForm do
        begin
//            SetBounds(ScaleX(pt.x + 16), ScaleY(pt.y + 7), InfoPic.Width, InfoPic.Height);
            Left := ScaleX(700);    // Слева
            Top := ScaleY(545);     // Сверху
            Width := ScaleX(280);   // Ширина
            Height := ScaleY(215);  // Высота
            Show;
        end;
    finally
    end;
end;

Где в твоем примере нужно задать эти же координаты? Не как не получаеться.