unit Unit1;
// Quellcode von carli | carli - lazarusforum.de
// Kommentare von Sven | Bauer321 - lazarusforum.de

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

 { TForm1 }

 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
   procedure ButtonClick(Sender: TObject);
 private
   { private declarations }
 public
   { public declarations }
 end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var 
  ed:  TEdit;   // eine Variable vom Typ TEdit
  but: TButton; // eine Variable vom Typ TButton
begin
  ed        := TEdit.Create(self);             // Das Edit erstellen
  ed.Parent := self;                           // Die aktuelle Form als Parent Form registrieren
  ed.top    :=  8;                             // Abstand oben für das Edit festlegen
  ed.Left   := 10;                             // Abstand links für das Edit festlegen
  ed.Width  := ClientWidth - 2 * ed.left;      // Breite für das Edit festlegen
  ed.text   := 'Bitte geben sie den Text ein'; // einen Text in das Edit-Feld schreiben
  
  but         := TButton.Create(self);
  but.parent  := self;               // Die aktuelle Form als Parent Form registrieren
  but.top     := ed.Top + ed.Height; // Abstand oben für das Button festlegen
  but.left    := ed.Left;            // Abstand links für das Button festlegen
  but.Caption := 'Klickmich';        // Caption für den Button festlegen
  but.OnClick := @ButtonClick;       // event Hinzufügen, in diesem Fall soll die Prozedur ButtonClick ausgerufen werden, wenn das OnClick Ereignis ausgelöst wird.
end;

// Prozedur "ButtonClick", die durch den Button, der unter der Variable "but" definiert ist, aufgerufen wird
procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage('Hallo Welt');
end;

end.