лепишь на форму Эдит, Лэйбл, Баттон, по нажатии кнопки пишешь код:
Код:
if Edit1.Text='пч' then Label1.Caption:='Пешка чёрная';
if Edit1.Text='пб' then Label1.Caption:='Пешка белая';
if Edit1.Text='сч' then Label1.Caption:='Слон чёрный';
if Edit1.Text='сб' then Label1.Caption:='Слон белый';
if Edit1.Text='лб' then Label1.Caption:='Ладья белая';
if Edit1.Text='лч' then Label1.Caption:='Ладья чёрная';
if Edit1.Text='фб' then Label1.Caption:='Ферзь белый';
if Edit1.Text='фч' then Label1.Caption:='Ферзь чёрный';
if Edit1.Text='кб' then Label1.Caption:='Король белый';
if Edit1.Text='кч' then Label1.Caption:='Король чёрный';
кстати case и строки не совместимы..а то кто-то там хотел с кейсом..