how to send text to beyluxe

I dont write in vb anymore so here is delphi code, it taken out of my beyluxe class but you can work out what you need to do

procedure TBeyluxe.SendTxtBeyluxe(RichEditTxt: TRichEdit);

var

memStream: TMemoryStream;

strList: TStringList;

sText: String;

start_pos,end_pos,txt_len: integer;

begin



if RmRichTxtHwnd  0 then

begin

memStream := TMemoryStream.Create;

strList := TStringList.Create;

try

RichEditTxt.Lines.SaveToStream( memStream );

memStream.Position := 0;

strList.LoadFromStream( memStream );

sText:= strList.GetText;

txt_len:= SendMessage(RmRichTxtHwnd, WM_GETTEXTLENGTH, 0, 0);

If txt_len > 0 Then

begin

SendMessage(RmRichTxtHwnd, EM_GETSEL, start_pos, end_pos);

SendMessage(RmRichTxtHwnd, EM_SETSEL, 0, txt_len);

SendMessage(RmRichTxtHwnd, WM_CUT, 0, 0);

SendMessage(RmRichTxtHwnd,WM_SETTEXT,Length(sText),Integer(PChar(sText)));

PostMessage(RmRichTxtHwnd, WM_KEYDOWN, VK_RETURN,0);

PostMessage(RmRichTxtHwnd, WM_KEYUP, VK_RETURN,0);

Sleep(100);

SendMessage(RmRichTxtHwnd, WM_PASTE, 0, 0);

SendMessage(RmRichTxtHwnd, EM_SETSEL, txt_len, txt_len);

end

else

begin



SendMessage(RmRichTxtHwnd,WM_SETTEXT,Length(sText),Integer(PChar(sText)));

PostMessage(RmRichTxtHwnd, WM_KEYDOWN, VK_RETURN,0);

PostMessage(RmRichTxtHwnd, WM_KEYUP, VK_RETURN,0);

end

finally

memStream.Free;

strList.Free;

end;

end;

counter:= 0;

end;