Moin!
Die Funktion kann im Worst-Case Fall doppelt so lange Zeichenketten zurück geben, also:
Delphi-Quellcode:
procedure test(Const ASrcString: String);
var DestString: string;
begin
SetLength(DestString, 2*Length(ASrcString));
Translate(PChar(ASrcString), PChar(DestString), false);
// Hier noch mit SetLength() den DestString auf die zurück gegebene Anzahl von zeichen kürzen...
end;
MfG
Muetze1