AnsiString word = Edit1->Text;
AnsiString result = "";
for(int i = 1; i < word.Length() + 1; i++)
{
	bool isAdded = False;
	for(int j = 0; j < 33; j++)
	{
		if( word[i] == no_shifr_up[j] )
		{
			result += AnsiString(with_shifr_up[j]);
			isAdded = True;
			break;
		}
		else if( word[i] == no_shifr_low[j] )
		{
			result += AnsiString(with_shifr_low[j]);
			isAdded = True;
			break;
		}
	}
	if( !isAdded )
	{
		result += AnsiString(word[i]);
	}
}
Label2->Caption = result;