Procedure TRegistryButton.CNDrawItem(Var Message: TWMDrawItem);
Var
  SaveIndex: Integer;
Begin
  Inherited;
  With Message.DrawItemStruct^ Do
  Begin
    SaveIndex := SaveDC(hDC);
    FCanvas.Lock;
    Try
      FCanvas.Handle := hDC;
      FCanvas.Font := Font;
      FCanvas.Brush := Brush;
      DrawButton(rcItem, itemState);
    Finally
      FCanvas.Handle := 0;
      FCanvas.Unlock;
      RestoreDC(hDC, SaveIndex);
    End;
  End;
  Message.Result := 1;
End;

Procedure TRegistryButton.DrawButton(Rect: TRect; State: UINT);
Var
  OldMode: Longint;
  IsDown: Boolean;
  OldColor: TColor;
  //OrgRect: TRect;
Begin
  //OrgRect := Rect;
  IsDown := State And ODS_SELECTED <> 0;
 
  OffsetRect(Rect, 5, 0);
  If IsDown Then
    OffsetRect(Rect, 1, 1);

  OldColor := FCanvas.Brush.Color;
  FCanvas.Brush.Color := Self.Colors.Default;
  FCanvas.Brush.Color := OldColor;
  OldMode := SetBkMode(FCanvas.Handle, TRANSPARENT);

  FCanvas.Font.Color := Font.Color;
  DrawText(FCanvas.Handle, PChar(Caption), -1, Rect,
    DT_SINGLELINE Or DT_LEFT Or DT_VCENTER);
  SetBkMode(FCanvas.Handle, OldMode);
End;

  DrawText(FCanvas.Handle, PChar(Caption), -1, Rect,
    DT_SINGLELINE Or DT_LEFT Or DT_VCENTER);

FCanvas.Brush.Color := OldColor;

procedure TForm1.Button1Click(Sender: TObject);
Var
f: TextFile;
s: WideString;
Begin
AssignFile(F, 'zum.reg');
Reset(F);
While not Eof(F) Do
Begin
ReadLn(F, s);
RichEdit1.Lines.Add(AnsiString(s));
End;
closefile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
f: TextFile;
s: WideString;
Begin
AssignFile(F, 'zum.reg');
Reset(F);
While not Eof(F) Do
 Begin
  ReadLn(F, s);
  richedit1.Lines.Add(WideCharToString(PWideChar(s)));
 End;
closefile(f);
end;

i:=findtext(FuncListBox.Items[FuncListBox.ItemIndex],0,length(text),[stMatchCase]);
    SetScrollPos(richedit.Handle, SB_VERT, round(i/3), True);

procedure TForm1.Button2Click(Sender: TObject);
var
  Buffer: WideString;
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('zum.reg', fmOpenRead);
  try
    SetLength(buffer, Stream.Size);
    Stream.Read(Buffer[1], Stream.Size);
    Memo1.Lines.Text := Buffer;
  finally
    Stream.Free;
  end;
end;