제가 사용하는 언어가 C++이다보니
파스칼 구문에 약합니다, ^^*

어떤 식으로 하라는 방법만 참고하셔야합니다.

일단 델파이에서 컴파일 되는거 확인한 코드를 올려드립니다.

procedure TForm2.Button1Click(Sender: TObject);
var
    Handle1: HWND;
    Lst    : TStringList;
    i      : Integer;
begin
    Lst := TStringList.Create;
    Lst.StrictDelimiter := True;
    Lst.CommaText := edit2.text;

    for i := 0 to Lst.Count-1 do
    begin                          //     클레스네임          윈도우캡션         타겟지정
        Handle1 := FindWindowEx(FindWindow('#32770', Pchar(Lst.Strings[i])), 0, 'RichEdit20W', nil);

        if Handle1<>0 then
        begin
            SendMessage(Handle1, WM_SETTEXT, 0, LParam(Pchar(edit1.Text))); //내용전송
            PostMessage(Handle1 ,WM_KEYDOWN ,VK_RETURN, 0) ;  // 엔터 전달
        end;

    end;
    Lst.Free;
end;

end.

님이 쓰신 글 :
:
: :

: : procedure TForm1.Button1Click(Sender: TObject);
: : var
: :     Handle1: HWND;
: :     Lst    : TStringList;
: :     i      : Integer;
: : begin                   //     클레스네임          윈도우캡션         타겟지정
: :     Lst := TStringList.Create;
: :     Lst.StrictDelimiter := True;
: :     Lst.CommaText := edit2.text;
: : 
: :     for i := 0 to Lst.Count-1 do
: :         Handle1 := FindWindowEx(FindWindow('#32770', Pchar(Lst.Strings[i])), 0, 'RichEdit20W', nil);
: :         if Handle1 not nil then
: :             SendMessage(Handle1, WM_SETTEXT, 0, LParam(Pchar(edit1.Text))); //내용전송
: :             PostMessage(Handle1 ,WM_KEYDOWN ,VK_RETURN, 0) ;  // 엔터 전달
: :         end;
: : 
: :     Lst.Free;
: : end;
: : 

:
:
: 에서   if Handle1 not nil then
:            SendMessage(Handle1, WM_SETTEXT, 0, LParam(Pchar(edit1.Text))); //내용전송
:
: Handle1 not the 부분하고
:
: Text부분이 사진처럼 에러가납니다 ㅜㅜ