Du brauchst dich nicht mit GetMem, FreeMem und Zeigern zu plagen.
Mit den Delphidatentyp AnsiString geht das viel einfacher:
Delphi-Quellcode:
var
title, OEMtitle : AnsiString;
begin
Title:= QueryRef.FieldByName('aString').AsString;
// Speicher für Ziel reservieren
SetLength(OEMtitle, Length(title);
OemToCharBuff(PChar(Title), PChar(OEMTitle), Length(Title));
FormSelectedTitles.ListBoxFoundTitles.Items.Add(OEMTitle);
end