&-Zeichen wird nicht angezeigt in einem MessageDialog

[shmia]

Folgende Funktion verdoppelt alle Und-Zeichen:

Delphi-Quellcode:

function DoubleAmpersand(const S: string): string;
var
  I: Integer;
begin
  Result := S;
  for I := Length(Result) downto 1 do
    if Result[I] = '&' then Insert('&', Result, I);
end;