【delphi开源代码栏目提醒】：本文主要为网学会员提供move.pas，希望对需要move.pas网友有所帮助，学习一下!

    unit move;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, jpeg, StdCtrls;
    
    type
      Tshowfrm = class(TForm)
        Image1: TImage;
        Label1: TLabel;
        Label2: TLabel;
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      showfrm: Tshowfrm;
    
    implementation
    
    {$R *.dfm}
    
    end.