Rename samples subdirectories

1 files changed, 14 insertions, 0 deletions

diff --git a/samples/Delphi/program.dpr b/samples/Delphi/program.dpr
new file mode 100644
index 0000000..d2d71f1
--- /dev/null
+++ b/samples/Delphi/program.dpr
@@ -0,0 +1,14 @@
+program gmail;
+
+uses
+  Forms,
+  Unit2 in 'Unit2.pas' {Form2};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TForm2, Form2);
+  Application.Run;
+end.