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.

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