o que seria um Select Case de vb no delphi?

Case x of

 1: Writeln("alternativa 1");

 2: Writeln("alternativa 2");

 3: Writeln("alternativa 3");

End;

Onde X é a variável

É assim no Pascal, logo no Delphi deve ser igual.