Lista de cadenas

[Khronos]

Estoy trabajando con una {$APPTYPE CONSOLE} y estoy haciendo una especie de cmd pero con mis propios comandos.
Lo que estoy haciendo es que vaya leyendo las lineas hasta que una coincida con un comando que tengo asignado y que realice esa accion.
Por ejemplo(les pego un pedazo de codigo):

var
Comando: string;
 
Procedure DetectarComando;
var
repetir: boolean;
begin
 
repetir:= true;
Repeat
     Readln(Comando);
      If Comando='edit' then
          begin
              repetir:=false;
          end;
      If Comando='mail' then
          begin
              repetir:=false;
          end;
      If Comando='quit' then
          begin
              repetir:=false;
          end;
until repeat=false;
end;
 
 
begin
If comando='edit' then 
   begin
     Edit; 
   end;
 
end;

Espero que se entienda. La lista de comandos cada vez se me hace mas grande y es poco "elegante" lo que estoy haciendo yo
¿Como podria hacerlo de otra forma?
Probe con una variable de tipo TStringList con todos los comandos registrados en los items y haciendo una busqueda, pero se me cierra.

Salu2