procedure Test;
begin
//Denne procedure kan ikke returne noget, kun manipulere med ting der allerede eksisterer
ShowMessage('Dette er en test');
end;
function Test: string;
begin
//Denne function returnerer en string da det er defineret i funktionen
Result:= 'hej';
end;
Man vil så kunne sige
var
s: string;
begin
s:= test; //s skal være lig funktionen test.
end;