Windows 10 1809 - Problem mit Memo.Text

[KodeZwerg]

Delphi-Quellcode:

function NoLineFeed(const s: string): string;
var i: integer;
begin
  result := s;
  for i := length(result) downto 1 do
    if ord(result[i])<32 then
      if (i>1) and (ord(result[i-1])<=32) then
        delete(result,i,1) else
        result[i] := ' ';
end;

Delphi-Quellcode:

  var h : TCaption;
begin
  h := NoLineFeed(Memo1.Text);
  h := Copy(h, 1, length(h) - 1);
  Memo1.Text := h;

Oder so
Gern geschehen und viel Spaß, Ps diese Funktion filtert alles unterhalb Ascii 32 raus und am ende ist es nur eine Zeile.

Eine Memo (Multiline-Edit) ist nicht so das wahre wenn ein Singleline das Ziel ist, vielleicht Control in ein Edit ändern?