1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

unit quadratrechnen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  a,b: real ;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(Edit1.text);
b:=a*a;
edit2.text:=floattostr(b);
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

program Project2;



uses
  windows;

begin
      InputBox(1);
      MessageBox();
      ShowMessage();
end.					

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

program Project1;

{$APPTYPE CONSOLE}

uses
     Windows,
     Messages,
     SysUtils,
     Dialogs;

var
    x: integer;

begin
      function MessageBox(const Text: 'Hallo';
                          const Caption: 'Quadratrechnen';
                          Buttons: TMessageButtons = [smbOK];
                          Default: TMessageButton = smbOK;
                          Escape: TMessageButton = smbCancel):
                          TMessageButton;
      end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

program Project1;

{$APPTYPE CONSOLE}

uses
     Windows,
     Messages,
     SysUtils,
     Dialogs;

var
    x: integer;

begin
  MessageBox('Hallo', 'Quadratrechnen');
end.