另存时显示文件名

Unit1.fmx

@@ -27,8 +27,8 @@ object Form1: TForm1
       Size.PlatformDefault = False
       TabOrder = 0
       OnMouseLeave = Memo1MouseLeave
-      Viewport.Width = 401.000000000000000000
-      Viewport.Height = 473.000000000000000000
+      Viewport.Width = 393.000000000000000000
+      Viewport.Height = 465.000000000000000000
     end
     object FileNew: TButton
       StyledSettings = [Family, Style, FontColor]

Unit1.pas

@@ -131,10 +131,14 @@ begin
 end;
 
 procedure TForm1.ResultProc1(AResult: Boolean; AFileName: string);       //默认参数过程1，另存用到
+var
+  s:string;
 begin
   if AResult then
     begin
       Memo1.Lines.SaveToFile(AFileName);
+      s:=copy(AFileName,pos('Documents/',AFileName)+10,50);  //取文件名（不带路径）
+      label1.text:='当前文件：'+s;
     end;
 end;