Попробуй такой вариант:
function GetRTF(RE: TRichedit): String;
var
GetTextStruct: GETTEXTEX;
GetLenStruct: GETTEXTLENGTHEX;
NumChars: Integer;
Buff: Pointer;
begin
Result := '';
// Get length of text
FillMemory(@GetLenStruct, SizeOf(GetLenStruct), 0);
GetLenStruct.flags :=...
Если есть установочный диск, то можно попробовать запустить программу проверки системных файлов:
sfc /scannow
Описание программы можно найти на http://support.microsoft.com/kb/310747/ru
если не получится, надо смотреть ветки (для xp):
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows...