Buscar cadena de texto y reemplazarla

[broly7]

Hola muy buenas.

Verán tengo el siguiente problema: Quiero abrir un archivo .txt y buscar una línea en la que ponga "set account 'Broly7'" y borrar el contenido entre comas.
El caso es que abro el archivo Assignfile...Reset...pero no se que función usar para que busque ese texto y después trabajar con el. Tengo algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); 
var F: textfile; 
begin 
if fileexists('config.wtf') then 
begin MessageDlg('Config.wtf found. Next', mtinformation, [mbOK],0); 
AssignFile( F, 'config.wtf'); 
Reset( F );  

[Aqui nose como posicionarme en la línea "set account"]  

Closefile( F ); 
end 
else 
MessageDlg('Config.wtf not found!', mtwarning, [mbOK],0); end;

Me ayudariais mucho. Gracias.