Hallo...ja habe ich gerade im Moment getestet, es kommt leider auch ein anderes Ergebnis dabei raus.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 1 to memo1.lines.count do begin
Memo2.lines.Add(LowerCase(gethashstr(Memo1.lines[i])))
end;
end;