Lectura .txt con delimitantes

[Jhonscript]

Hola, estoy intentando leer una linea de un text file separado por "," del formato [ejemplo,ejemplo,ejemplo,ejemplo] necesito colocar los string en 4 edits diferentes, los problemas que tengo es que no se que comando utilizar en lazarus para tomar cada string y aplicarlo a un edit diferente y el segundo problema es que tengo que asignarlos de forma aleatoria, no necesariamente el primer string en el primer edit, el segundo string al segundo edit.. etc.

cualquier ayuda se agradece mucho.

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

[[rretamar]]

La blibliteca de manejo de cadenas StrUtils de Free Pascal tiene la función "extractword", para separar subcadenas a partir de una cadena con delimitadores tipo 'cadena1,cadena2,cadena3'

Código Delphi [-]
function ExtractWord(N: Integer; const S: string;  const WordDelims: TSysCharSet): string;

Ejemplo:

Código Delphi [-]
Function Obtener_Host: String; // Obtener nombre de host remoto a través de UNC
Var
  Nombre_Host: String;
  Modo_remoto: Boolean;
Begin
  Result := 'Localhost'; // Nombre por defecto
  Modo_remoto := ExpandUNCFileName(Application.ExeName)[ 1 ] = '\';
  //
  If Modo_remoto Then
    Result := ExtractWord(1, ExpandUNCFileName(Application.ExeName), [ '\' ]);
End;

Si miras el código fuente de esa unidad encontrarás otras funciones muy útiles.