1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure GenerateCode;
begin
  QuelltextMemo1.lines.add(' unit Unit1;');
  QuelltextMemo1.lines.add('interface');
  QuelltextMemo1.lines.add('uses');
  QuelltextMemo1.lines.add('  Windows, Messages, SysUtils, Variants, ');
  QuelltextMemo1.lines.add('Classes, Graphics, Controls, Forms,');
  QuelltextMemo1.lines.add('  Dialogs;');
  QuelltextMemo1.lines.add('type');
  QuelltextMemo1.lines.add('  TForm1 = class(TForm)');
  QuelltextMemo1.lines.add('  private');
  QuelltextMemo1.lines.add('    { Private declarations }');
  QuelltextMemo1.lines.add('  public');
  QuelltextMemo1.lines.add('    { Public declarations }');
  QuelltextMemo1.lines.add('  end;');
  QuelltextMemo1.lines.add('var');
  QuelltextMemo1.lines.add('  Form1: TForm1;');
  QuelltextMemo1.lines.add('implementation');
  QuelltextMemo1.lines.add('{$R *.dfm}');
  QuelltextMemo1.lines.add('end.');
  QuelltextMemo1.savetofile('C:\test.pas');
end;