Delphi6で『ゆの in language』。ひどい事になってるけど、これ以外にどうしろと、というところまで考えたつもり。 unit Yuno; interface uses Variants, Controls, Forms, StdCtrls, Classes; type TForm1 = class(TForm) Label1: TLabel; procedure FormShow(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; function Disp : Variant; implementation {$R *.dfm} function Disp : Variant; begin with Form1 do begin if Label1.Capt