[Igor]

procedure setClip(int x, int y, int width, int height);
Устанавливает регион, на который в дальнейшем влияют процедуры рисования.

Это из справки.
Параллельные процессы точно нужны? Можно написать две функции, каждая почти "процесс", запускать их поочерёдно.
Переменные сделать глобальными. Если очень хочется, можно создать тип record=first - где будут переменные для первого процесса и похожий тип для второго.

type
First=record
a,b:integer;
end;

Second=record
t:integer;
end;


procedure process1;
begin
setClip(0,0,x,y);
DrawЧтоНибудь(first.a,first.b);
end;

procedure process2;
begin
if GetRelativeTimeMS-second.t>100 then
begin
second.t:=GetRelativeTimeMS
setClip(x,y,getwidth,getHeight)
DrawЕщёЧтоНибудь;
end;
end;

repeat
process1;
process2;
repaint;
until false;