Noget dll stuff

Hej jeg kunne godt tænke mig at vide hvordan jeg kan sende data til min egen dll og så laver dll filen om på noget af tektsen om og sender den tilbage igen..

Vil meget gerne se et eksempel da det hjælper mig mest..

På forhånd Tak

SkypeR That\\\\\\'s ME

----------------------------------------------
%49%66%20%79%6F%75%27%76%65%20%74%72%61%
6E%73%6C%61%74%65%64%20%
74%68%69%73%2C%20%79%6F%75%20%6D%75%73%
74%20%62%65%20%62% 6F%72%65%64%2E%2E%2E

Kode 

library SomeDLL;

uses
  SysUtils;

// Typen PChar kan bruges nogenlunde som en string(Det er IKKE det samme!)
function ParsNogetData(DataInd: PChar): PChar; export; stdcall;
begin
  Result := PChar(DataInd + 'abc'); 
end;

exports
  ParsNogetData;

begin

end.

Kode 

program SomeProgram;

uses
  SysUtils;

function ParsNogetData(DataInd: PChar): PChar; stdcall; external 'SomeDLL.dll';

begin
  WriteLn(ParsNogetData(PChar('123')));
  Readln;
end.

Kode 

library Project2;

uses
   dialogs;

{$R *.res}


function dinFunc(s:pchar):pchar;
begin
  Result:= pchar(s + '!!!');
end;

exports
 dinFunc;

end.

Kode 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function dinFunc(s:pchar):pchar; external 'project2.DLL';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 form1.caption:=dinFunc(pchar('test'));
end;

end.