задача про обедающих философов

begin
 
i:=FindNumber; // определяем номер философа и соответствующую ему фигуру на форме
 
//Здесь нужно поменять нужное изображение 
 
EnterCriticalSection(CriticalSection); // входим в критическую область
 
//WaitForSingleObject(mutex,INFINITE); // то же с использованием мьютекса
 
try
state[i]:=phHungry;    // объявляем, что философ голоден и
 
// Здесь замена изображения
 
test(i);               // пытаемся получить палочки
 
finally
LeaveCriticalSection(CriticalSection); // выходим из критической области

philosopher.pas
 
unit Philosopher;
interface
uses
  Classes, Windows, Graphics, ExtCtrls,SysUtils;
 
type
 
  Philosophers = class(TThread)
  private
    procedure think;
    procedure eat;
    procedure take_stick;
    procedure put_stick;
    procedure test(i:integer);
    function FindNumber:integer;
  protected
    procedure Execute; override;
  end;
implementation
 
uses Main;
// работа процесса
procedure Philosophers.Execute;
begin
while (not Terminated) do begin // жизненный цикл китайского философа:
take_stick;                 // берет палочки или голодает (блокируется)
eat;                            // ест
put_stick;                  // кладет палочки
think;                        // думает
end;
end;
 
// философ думает
procedure Philosophers.think;
begin
sleep(Random(10000)); // думает не более 10 сек.
end;
// философ пытается взять палочки для еды
procedure Philosophers.take_stick;
var i:integer;
begin
i:=FindNumber; // определяем номер философа и соответствующую ему фигуру
 // [B]Здесь нужно изменить картинку[/B]
 
EnterCriticalSection(CriticalSection); // входим в критическую область
try
state[i]:=phHungry;    // объявляем, что философ голоден и
 // [B]Здесь изменение картинки[/B]
 
test(i);               // пытаемся получить палочки
 
finally
LeaveCriticalSection(CriticalSection); // выходим из критической области
WaitForSingleObject(semaphore[i],INFINITE); // блокируемся на неопределенное
// время, если палочки  не достались. Если в процедуре test философ перешел в
// состояние "ест", соответствующий семафор увеличивается на 1 и блокировки
// не происходит
end;
end;
 
// философ ест
procedure Philosophers.eat;
begin
sleep(Random(5000));  // ест не более 5 сек.
end;
// философ оканчивает еду и предлагает палочки соседям
procedure Philosophers.put_stick;
var i, left, right:integer;
begin
i:=FindNumber;
//[B]Здесь замена изображения[/B]
EnterCriticalSection(CriticalSection); // входим в критическую область
try
state[i]:=phThinking;  // объявляем, что философ думает
//[B]Здесь замена изображения[/B]
left:=i+1;   // определяем его соседей ...
if left=6 then left:=1;
right:=i-1;
if right=0 then right:=5;
test(left);  // и проверяем, может ли есть сосед слева ...
test(right); // или справа
finally
LeaveCriticalSection(CriticalSection); // выходим из критической области
end;
end;
// процедура проверки доступности палочек для еды
procedure Philosophers.test(i:integer);
var left, right:integer;
begin
left:=i+1; // определяем соседей
if left=6 then left:=1;
right:=i-1;
if right=0 then right:=5;
// если философ голоден, а палочки свободны (соседи справа и слева не едят) ...
if (state[i]=phHungry) and (state[left]<>phEating) and (state[right]<>phEating)
  then begin state[i]:=phEating; // объявляем, что философ ест
             [B]//Здесь замена[/B]
 
             ReleaseSemaphore(semaphore[i],1,nil); // увеличиваем счетчик
 
             // сщщтветствующего философу семафора на единицу
 
       end;
 
end;
 
// дополнительная функция, позволяющая определить номер философа по
 
// идентификатору потока.
 
function Philosophers.FindNumber:integer;
 
var i:integer;
 
begin
 
for i:=1 to 5 do
 
   if PHID[i]=ThreadID then begin FindNumber:=i; break; end;
 
end;