library robot;
type
   fVect=record
     x,y:single; //Single - вещественный тип в 4 байта, аналог Float (тоже 4 байта) в C++
   end;
   Robo=record
     Pos:array[0..2]of fVect; //Массивы по три переменные
     Spd:array[0..2]of fVect;
     Frc:array[0..2]of single;
   end;
procedure RTICK(R:Robo); StdCall;  
begin
//Ничего не делаю
end;
exports RTICK; //Экспорт
begin
end.

library robot;
type
      fVect=record
        x,y:single; //Single - вещественный тип в 4 байта, аналог Float (тоже 4 байта) в C++
      end;
      Robo=record
        Pos:array[0..2]of fVect; //Массивы по три переменные
        Spd:array[0..2]of fVect;
        Frc:array[0..2]of single;
      end;

      var R:Robo;

function RTICK():Robo; StdCall;
begin
     R.Frc[0]:=R.Frc[0]-0.007;
     R.Frc[1]:=R.Frc[1]-0.007;
     R.Frc[2]:=R.Frc[2]+0.007;
     if R.Frc[2]>0.8 then begin
       R.Frc[0]:=0.8;
       R.Frc[1]:=0.8;
       R.Frc[2]:=-0.8;
     end;

     Result:=R;
end;

exports RTICK; //Экспорт

begin
end.

procedure RTICK(var R:Robo); StdCall;
begin //обрабатываем r
end;