Скругление углов у Edit

[DeOne]

Всем привет. Кто поможет подсказать, как сделать скругление углов у Edit только с одной стороны (слева, сверху, справа, снизу и так далее), а не везде сразу?

Есть задача сделать:

 

Но пока что у меня:

 

Спасибо за помощь.

[krapotkin]

 

Спойлер

  object r1: TRectangle
    Fill.Color = xFFE6F0F2
    Position.X = 36.000000000000000000
    Position.Y = 24.000000000000000000
    Size.Width = 125.000000000000000000
    Size.Height = 50.000000000000000000
    Size.PlatformDefault = False
    Stroke.Color = xFF84AFBE
    XRadius = 8.000000000000000000
    YRadius = 8.000000000000000000
    object r2: TRectangle
      Fill.Color = xFFD4E4EA
      Position.X = 48.000000000000000000
      Size.Width = 50.000000000000000000
      Size.Height = 50.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = xFFA5C5D0
      object txt2: TText
        Position.X = 9.000000000000000000
        Position.Y = 13.000000000000000000
        Size.Width = 29.000000000000000000
        Size.Height = 29.000000000000000000
        Size.PlatformDefault = False
        Text = '0'
        TextSettings.Font.Size = 18.000000000000000000
      end
    end
  end
  object txt1: TText
    Position.X = 44.000000000000000000
    Position.Y = 36.000000000000000000
    Size.Width = 29.000000000000000000
    Size.Height = 29.000000000000000000
    Size.PlatformDefault = False
    Text = #1054#1090
    TextSettings.Font.Size = 18.000000000000000000
  end
  object r3: TRectangle
    Fill.Color = xFFE6F0F2
    Position.X = 36.000000000000000000
    Position.Y = 100.000000000000000000
    Size.Width = 93.000000000000000000
    Size.Height = 50.000000000000000000
    Size.PlatformDefault = False
    Stroke.Color = xFF84AFBE
    XRadius = 8.000000000000000000
    YRadius = 8.000000000000000000
    object r4: TRectangle
      Fill.Color = xFFD4E4EA
      Position.X = 48.000000000000000000
      Size.Width = 50.000000000000000000
      Size.Height = 50.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = xFFA5C5D0
      object txt3: TText
        Position.X = 9.000000000000000000
        Position.Y = 13.000000000000000000
        Size.Width = 29.000000000000000000
        Size.Height = 29.000000000000000000
        Size.PlatformDefault = False
        Text = '0'
        TextSettings.Font.Size = 18.000000000000000000
      end
    end
  end
  object txt4: TText
    Position.X = 44.000000000000000000
    Position.Y = 112.000000000000000000
    Size.Width = 29.000000000000000000
    Size.Height = 29.000000000000000000
    Size.PlatformDefault = False
    Text = #1054#1090
    TextSettings.Font.Size = 18.000000000000000000
  end