unit uShowText; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Memo.Types, FMX.StdCtrls, FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo; type TfShowText = class(TForm) Memo1: TMemo; Panel1: TPanel; Label1: TLabel; private { Private declarations } public { Public declarations } end; var fShowText: TfShowText; implementation {$R *.fmx} end.