Label1.caption := 'うんこ';
Label1.update;
Sleep(3000);
Label2.Caption := 'ちんこ';