ordem no case

[guilhermerr 0]

Alo, é possivel saber a ordem de entrada de um comando case?

 

tenho aqui um vetor [ a,b,c,d,e]

for

case lin=vetor of

1:

2:

3:

4:

5:

end;

acontece que nao sei a ordem da sequencia. obrigado pela atenção

[Raficcha 1]

Ei, veja este exemplo:

 

procedure TForm1.Button1Click(Sender: TObject);
var
	biblioteca : THandle;
	funcao : function(lol1, lol2: integer):integer CDECL;
begin
	biblioteca := LoadLibrary('Projeto1.dll');
	if biblioteca <> 0 then begin
		@funcao := GetProcAddress(biblioteca, 'lol');
		if @funcao <> nil then begin
			showmessage(inttostr(funcao(1, 2)));
		end
		else begin
			showmessage('função não encontrada');
		end;

		if biblioteca <> 0 then
			FreeLibrary (biblioteca);
	end
	else
		showmessage('Biblioteca não encontrada');

end;

Espero que ajude.