Heeft iemand ervaring met lazarus en WinCE projecten? En daarenboven ook met een gewone TCP connectie maken vanop het WinCE platform?

Na wat zoeken heb ik de SSockets unit ontdekt, en ik probeer dit, maar na een tijdje geeft dit gewoon een 'Access violation' exception ter hoogte van de read:

Delphi Code:
  1. var
  2.   con:TInetSocket;
  3.   s:AnsiString;
  4.   i:integer;
  5. begin
  6.   try
  7.     Button1.Caption:='Connecting...';
  8.     Update;
  9.     con:=TInetSocket.Create('SERVER1',12345);
  10.     Button1.Caption:='Connected';
  11.     Update;
  12.     try
  13.       s:='test'#13#10;
  14.       Button1.Caption:=IntToStr(con.Write(s[1],Length(s)));
  15.       SetLength(s,1000);
  16.       i:=con.Read(s[1],1000);
  17.       if i=-1 then RaiseLastOSError;
  18.       SetLength(s,i);
  19.       ListBox1.Items.Add(IntToStr(i)+s);
  20.     finally
  21.       con.Free;
  22.     end;
  23.   except
  24.     on e:Exception do
  25.      begin
  26.       ListBox1.Items.Add('###'+e.ClassName);
  27.       ListBox1.Items.Add(e.Message);
  28.      end;
  29.   end;