#pas
Этапы создания IC.

1. Составление АЛГОРИТМА
------------------------ 
// расчет
//Чистим Memo
//Чистим таблицу
//Читаем Дату в формате dMyyy
//расчитываем числа Пифагора
//первое
//второе
//третье
//четвертое
//Формируем имена для запроса к БД
и т.д
==============================================================

2. реализация в коде.
--------------------
// расчет
procedure THiAsmClass.doCalck;
var L, i,j, p1,p2,p3,p4 : Integer;
    Len : array[1..9] of integer;
begin
 _hi_OnEvent(doClear); //Чистим Memo
 For i:= 1 to 17 do    // чистим таблицу
   begin 
    id:=i;
    _hi_OnEvent(Text,''); 
    _hi_onEvent(Text2, '');
   end;

// Отображаем таблицу
   _hi_onEvent(vis1,1);
   _hi_onEvent(vis2,1); 

//Читаем Дату в формате dMyyy
   DateTime := toIntegerEvent(Data);
   FD := Date2StrFmt('dMyyyy', DateTime);

//расчитываем числа Пифагора
 p1 := 0; 
 for i := 1 to Length(FD) do 
 p1 := p1 + str2int(fd[i]);            // Первое число
 p2 := p1 div 10 + p1 mod 10;          // Второе число
 p3 := p1 - 2 * str2int(copy(FD,1,1)); // Третье число
 p4 := p3 div 10 + p3 mod 10;          // Четвертое число
 FD := FD + '_' + int2str(p1)          // Полное число строкой
          + ' ' + int2str(p2)
          + ' ' + int2str(p3)
          + ' ' + int2str(p4);
//Формируем имена для запроса к БД
  For i := 1 to 9 do 

и т.д.