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

fuction Twieauchimmer.Datenuebergeben(str1,str2:string;num1,num2:integer);
begin
  //alle folgenden Variablen müssen vorher global deklariert werden
  ersteVariable := str1;  //Globaler Variable in der neuen Unit wird der übergeben Wert zugewiesen
  zweiteVariable := str2;
  dritteVariable := num1;
  vierteVariable := num2;
end;					

1:

TWieauchimmer.Datenuebergeben(E1.text,E2.text, strtoint(E3.text),strToInt(e4.text));					

1:

VariablenName := Wert;					

1:

ShowMessage(Unit1.VariablenName);