Problema leyendo líneas de texto con variables

[UsuarioBaja123]

Tengo este código:

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
F: TextFile;
sLinea: String;
button : TButton;
begin
AssignFile( F, ExtractFilePath( Application.ExeName ) + 'program.txt' );
  Reset( F );

  while not Eof( F ) do
  begin
    ReadLn( F, sLinea );
    if sLinea='ButtonCtrl' then
        button := TButton.Create(self);
        ReadLn( F, sLinea);
        if sLinea='1' then
            button.Left:=sLinea;
            ReadLn( F, sLinea);
            if sLinea=[1..400] then
                button.Top:=sLinea;
  end;
  CloseFile( F );
end;

end.

Que me lee un archivo que es así:

ButtonCtrl
40
25
ButtonCtrl
90
47

Ahora, me gustaría que el programa lea el archivo de texto y cada vez que vea ButtonCtrl cree un botón con los parámetros que siguen que son dos integer (X e Y) y lo ponga en el Form. Como si yo pongo 30 líneas con ButtonCtrl con dichas variables me los ponga (infinito) y que si solo pongo ButtonCtrl y no pongo las dos variables a continuación no lo cree o de un mensaje de error.

Parece fácil pero me lié y no lo he continuado.

Si además pueden, se podría hacer que el programa reconociera el archivo de texto así:

ButtonCtrl{
POS=40,20
CAP=Ejemplo
}
ButtonCtrl{
POS=67,90
CAP=Unbotóncualquiera
}

Por lo menos decir que hago mal. Muchas gracias y no, no es proyecto de clase, es un proyecto que llevo intentando hacer desde hace tiempo. Y no quiero usar Archivos INIs aunque faciliten mucho esta tarea.