como enviar texto para bloco notas ( delphi )

procedure rtnenviar_texto_para_bloco_notas(str: String);
var
i: Integer;
begin
for i := 0 to Length(str) do
SendMessage(FindWindowEx(FindWindow('notepad', nil), FindWindow('Edit', nil), nil,nil), WM_CHAR, ord(str[i]), 0);
end;