如何在自定义TGraphicControl上拉伸两个图形彼此相邻？

unit CustomControl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;

type
  TCustomControl = class(TGraphicControl)
  private
    FImage1: TImage;
    FImage2: TImage;
    procedure ResizeImages;
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

{ TCustomControl }

constructor TCustomControl.Create(AOwner: TComponent);
begin
  inherited;
  FImage1 := TImage.Create(Self);
  FImage1.Parent := Self;
  FImage1.Align := alNone;
  FImage1.Picture.LoadFromFile('image1.bmp');

  FImage2 := TImage.Create(Self);
  FImage2.Parent := Self;
  FImage2.Align := alNone;
  FImage2.Picture.LoadFromFile('image2.bmp');

  ResizeImages;
end;

destructor TCustomControl.Destroy;
begin
  FImage1.Free;
  FImage2.Free;
  inherited;
end;

procedure TCustomControl.Paint;
begin
  inherited;
  // Draw a line between the images
  Canvas.Pen.Color := clBlack;
  Canvas.MoveTo(FImage1.Width, 0);
  Canvas.LineTo(FImage1.Width, Height);
end;

procedure TCustomControl.ResizeImages;
begin
  FImage1.SetBounds(0, 0, Width div 2, Height);
  FImage2.SetBounds(Width div 2, 0, Width div 2, Height);
end;

end.