Wenn du auf with nicht verzichten möchtest, dann würde ich empfehlen, deine Argumente deiner function ein 'A' voranzustellen.
Das würde hier erstmal helfen, und man sieht immer das hier ein Argument angesprochen werden soll.
Delphi-Quellcode:
function SinnvollerName(AName : String = '') : String;
begin
with Form1 do
begin
Left := 10;
....
Result:= AName + 'Sinn';
end;
end;