Da es eine Funktion ist, brauchst du auch ein Result, was du initialisieren musst, ansonsten empfehle ich dir das:
Delphi-Quellcode:
procedure happy(app : String; icon : String; destfile : String);
begin
ShowMessage('Anwendung = '+app+#10#13+'Icon = '+icon+#10#13+'Ausgabedatei = '+destfile);
end;
edit: außerdem hast du in der Titelzeile ein ; zuviel...
edit2: außerdem fängst du nach der icon-Variable einen neuen String an, der da nicht hingehört..