for lc:=1 to 10 do
begin
if TLabel(FindComponent('u1label' + IntToStr(lc))).Caption[1] = '_' then
u1imie[lc]:=' ' else
u1imie[lc]:=TLabel(FindComponent('u1label' + IntToStr(lc))).Caption[1];
end;

for lc:=11 to 30 do
begin
if TLabel(FindComponent('u1label' + IntToStr(lc))).Caption[1] = '_' then
u1nazwisko[lc]:=' ' else
u1nazwisko[lc]:=TLabel(FindComponent('u1label' + IntToStr(lc))).Caption[1];
end;

for lc:=31 to 50 do
begin
if TLabel(FindComponent('u1label' + IntToStr(lc))).Caption[1] = '_' then
u1miasto[lc]:=' ' else
u1miasto[lc]:=TLabel(FindComponent('u1label' + IntToStr(lc))).Caption[1];
end;

Game.label1111.Caption:=u1imie;