1:
2:
3:
4:

function bekloppt(egal: Integer): Integer;
begin
  Result := 42;
end;                    

1:

Result:= a + b                    

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

function addiere(z1, z2: Integer): Integer;
begin
  Result := z1 + z2;
end;

//Anwendung:

//z.B.
Edit_Ergebnis.Text := IntToStr(Addiere(StrToInt(Edit_z1.Text), StrToInt(Edit_z2.Text)));

//Damit würde die Zahl aus dem Edit_z1 mit der Zahl aus dem Edit_z2 addiert werden und im Edit_Ergebnis angezeigt werden.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  Summe, Zahl1, Zahl2: integer;
begin
  Zahl1 := StrToInt(Edit1.Text);                  // StrToInt() wandelt einen String in eine Integer-variable
  Zahl2 := StrToInt(Edit2.Text);
  Summe := Add(Zahl1, Zahl2);
  
  Edit3.Text := IntToStr(Summe);                  // IntToStr() - Umkehrschluss zur oberen genannten Funktion
end;                    

1:
2:
3:
4:

function Add(a, b: Integer): Integer;
begin
  Result := a + b;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.AllEditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9']) then begin
    Key:= #0;
    Beep;
  end;
end;                    

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

procedure TForm1.AllEditChange(Sender: TObject);
var i: Integer;
    s: String;
begin
  with (Sender as TEdit) do begin            // Absender 
    if StrToIntDef(Text, -1) = -1 then begin // Buchstaben im Text vorhanden

      s:= '';
      for i:= 1 to Length(Text) do           // Zext vom 1.Zeichen bis Ende durchsteppen
        if Text[i] in ['0'..'9'] then        // Zahl in Text[i] gefunden
          s:= s+ Text[i];                    // Zahl an s anhängen

     // anderes Bsp. vom letzten Zeichen zum 1.Zeichen durchsuchen
     { s:= Text;
      for i := Length(s) downto 1 do
        if not (s[i] in ['0'..'9']) then
          Delete(s, i, 1);}                  // löschen des ungültigen Zeichens

      Text:= s;             // Text übernehmen
      SelStart:= Length(s); // Cursor ans Textende setzen
    end;
  end;
end;