Работа с кодом (Delphi-Pascal)

[Kleopatra]

Дан код кнопки.

procedure TThreadSortForm.StartBtnClick(Sender: TObject);
begin
    ThreadsRunning := 3;
    StartBtn.Enabled:=false;
    Button2.Enabled:=false;
    label4.Caption:='';
    label5.Caption:='';
    label6.Caption:='';
with TBubbleSort.Create(BubbleSortBox, BubbleSortArray, label4) do
OnTerminate := ThreadDone;
with TSelectionSort.Create(SelectionSortBox, SelectionSortArray, label5) do
OnTerminate := ThreadDone;
with TQuickSort.Create(QuickSortBox, QuickSortArray, label6) do
OnTerminate := ThreadDone;
end;

На что можно заменить with...do в каждой строчке? это должно быть связано с create.

[Zer0]

на переменные:

procedure TThreadSortForm.StartBtnClick(Sender: TObject);
var bs:TBubbleSort; ss:TSelectionSort; qs:TQuickSort;
begin
...
bs:=TBubbleSort.Create(BubbleSortBox, BubbleSortArray, label4);
bs.OnTerminate := ThreadDone;
ss:=TSelectionSort.Create(SelectionSortBox, SelectionSortArray, label5);
ss.OnTerminate := ThreadDone;
qs:=TQuickSort.Create(QuickSortBox, QuickSortArray, label6);
qs.OnTerminate := ThreadDone;
...