uses System,IOUtils;procedure TForm2.FormCreate(Sender: TObject);
begin
Self.Caption:='我的第一个FileMonkey程序';
edt1.Text:= TDirectory.GetCurrentDirectory;
end;end.