FreePascal.ru

Хорошая тема.

А чего плохого-то?
Приложение не залипает. Форма двигается. Поток открыли-отработали-закрыли. А про кнопку - просто так написал.

Что мешает сделать тот же цикл, только открыть в нем десяток нитей? Ничего.

procedure TForm1.Button1Click(Sender: TObject);
var H:Cardinal;
begin
H:=BeginThread(@...); //вместо многоточия подставить название функции, которая отрисовывает шарик.
//Она должна соответствовать типу TThreadFunc.
end;

Сколько раз жмакнем кнопку, столько шаров должно рисоваться. Как-то так...

У него итак поди в основном процессе все рисуется и форму не подвинуть...
Вот и процессы...

Или TThread или CreateProcess.

Друг о друга ударяться не будут.

Положи в отдельные процессы. Уж не знаю сколько по максимуму, но с десяток другой - точно сможешь создать...

Сабж в лазарусе для WinCE присутствует или нет?

Под WinXP всё нормально. Для WinCE не компилируется.

Добавлено спустя 53 секунды:
ЗЫ Как получить статус питания и заряд батареи для КПК?