delphi窗体怎么向其他应用程序发送字符串

delphi窗体如何向其他应用程序发送字符串？
我写了一个delphi的读ic卡程序，可以将芯片号读出，现在的目的是想将这个芯片号发送到其他的应用程序，例如：
打开“记事本”或其他接受键盘输入的应用程序，把卡放在读卡器上，虽然我的读卡程序在后台，依然能读出芯片号，并显示在“记事本”里，这个读卡程序该怎么设计啊？

------解决方案--------------------
直接写到txt文件中比较好
------解决方案--------------------
// 模拟键盘输入一串字符。
procedure TypeKeyString(s: string);
var
c: Char;
i: integer;
off: integer;
vkw: Word;
begin
for i := 1 to Length(s) do
begin
c := s[i];
if (c < #128) then
begin
vkw := VkKeyScan(c);
off := 0;
if vkw and $100 = $100 then
keybd_event(VK_SHIFT, 0, off, 0);
if vkw and $200 = $200 then
keybd_event(VK_CONTROL, 0, off, 0);
if vkw and $400 = $400 then
keybd_event(VK_MENU, 0, off, 0);

off := 0;
keybd_event(Byte(vkw), 0, off, 0);
//sleep(20);
off := off or KEYEVENTF_KEYUP;
keybd_event(Byte(vkw), 0, off, 0);

off := off or KEYEVENTF_KEYUP;
if vkw and $100 = $100 then
keybd_event(VK_SHIFT, 0, off, 0);
if vkw and $200 = $200 then
keybd_event(VK_CONTROL, 0, off, 0);
if vkw and $400 = $400 then
keybd_event(VK_MENU, 0, off, 0);
end;
end;
end;