procedure TForm1.Button1Click(Sender: TObject);
var
L,T,W,H,Wv : integer;
begin
    L := 45;   //слева
    T := 78;  //сверху
    W := 383;  //по умолчанию
    H := 57;   //по умолчанию
    Wv := 120; //ширина верхнего
    with Canvas do begin
    Pen.Color:=$00A2B2B2;
    Brush.Color:=$00C6D6D6;
    RoundRect(L,T,Wv+L,25+T,6,6);

    Pen.Color:=$00A2B2B2;
    Brush.Color:=clWhite;
    RoundRect(L,20+T,W+L,H+20+T,6,6);

    Pen.Color:=$00C6D6D6;
    MoveTo(L+1,T+20);
    LineTo(Wv+L-1,T+20);

    Pixels[L+1,H+20+T-3]:=$00BFD5D5;
    Pixels[L+2,H+20+T-2]:=$00BFD5D5;
    Pixels[L+W-2,H+20+T-3]:=$00BFD5D5;
    Pixels[L+W-3,H+20+T-2]:=$00BFD5D5;
    Pixels[L+W-3,T+20+1]:=$00BFD5D5;
    Pixels[L+W-2,T+20+2]:=$00BFD5D5;

    Pen.Color:=$00C8E0E0;
    MoveTo(L+1,T+20+1);      //верхняя первая линия
    LineTo(W+L-3,T+20+1);

    Pen.Color:=$00C8E0E0;
    MoveTo(L+3,H+T+20-2);    //нижняя первая линия
    LineTo(W+L-3,H+T+20-2);

    Pen.Color:=$00C8E0E0;
    MoveTo(L+1,T+20+2);    //левая первая линия
    LineTo(L+1,H+T+20-3);

    Pen.Color:=$00C8E0E0;
    MoveTo(L+W-2,T+20+3);    //правая первая линия
    LineTo(L+W-2,H+T+20-3);

    Pen.Color:=$00D4F0F0;
    MoveTo(L+2,T+20+2);      //верхняя вторая линия
    LineTo(W+L-2,T+20+2);

    Pen.Color:=$00D4F0F0;
    MoveTo(L+2,H+T+20-3);      //нижняя вторая линия
    LineTo(W+L-2,H+T+20-3);

    Pen.Color:=$00D4F0F0;
    MoveTo(L+2,T+20+3);    //левая вторая линия
    LineTo(L+2,H+T+20-3);
    end;
end;

      Pixels[L+2,T+1]:=$00B7C7C7;
      Pixels[L+1,T+2]:=$00B7C7C7;
      Pixels[L+Wv-3,T+1]:=$00B7C7C7;
      Pixels[L+Wv-2,T+2]:=$00B7C7C7;

      Pen.Color:=$00BDCDCD;
      MoveTo(L+3,T+1);      //верхняя первая гориз. линия в верхнем Rounde
      LineTo(Wv+L-3,T+1);

      Pen.Color:=$00BDCDCD;
      MoveTo(L+1,T+3);   //левая первая вертик. линия в верхнем Rounde
      LineTo(L+1,T+20+1);

      Pen.Color:=$00BDCDCD;
      MoveTo(L+Wv-2,T+3);   //правая первая вертик. линия в верхнем Rounde
      LineTo(L+Wv-2,T+20+1);

      Pen.Color:=$00C1D1D1;
      MoveTo(L+2,T+2);      //верхняя вторая гориз. линия в верхнем Rounde
      LineTo(Wv+L-2,T+2);

      Pen.Color:=$00C1D1D1;
      MoveTo(L+2,T+3);   //левая вторая вертик. линия в верхнем Rounde
      LineTo(L+2,T+20+1);

      Pen.Color:=$00C1D1D1;
      MoveTo(L+Wv-3,T+3);   //правая вторая вертик. линия в верхнем Rounde
      LineTo(L+Wv-3,T+20+1);