odpowiedni napis do komponentu

Jak wpisać w 4 umieszczonych komponentach na formie cztery różne napisy, a z czego to musi działać za pomocą pętli np. for.
tz. jedna iteracja jeden napis w jednym komponencie
druga iteracja drugi napis w drugim komponencie itd.
za pomoc z góry dzięki...
pozdrawiam.

for i:=1 to 4 do
if i=1 then
label1.caption:='napis1'
else
if i=2 then
label2.caption:='napis2'
else
if i=3 then
label3.caption:='napis3'
else
label4.caption:='napis4';

Albo zamiast instrukcji warunkowych możesz skorzystać z

case of

A nie łatwiej:

var
  I: Integer;
begin
  TLabel(Form1.FindComponent('Label'+IntToStr(I))).Caption:='nazwa'+IntToStr(I);
end;

;)

A nie łatwiej:
var
I: Integer;
begin
TLabel(Form1.FindComponent('label'+IntToStr(I))).Caption:='nazwa'+IntToStr(I);
end; ;)

Niby tak, ale jeżeli w label1.caption ma być 'jakis_napis', w label2.caption 'napis2', w label3.caption 'cos' itd. Wtedy twój sposób nie jest za bardzo skuteczny. :)

Jest, bo zmieniasz Caption, a nie Name.