fileName := 'c:/tempPass.txt';
    AssignFile(txt, fileName);
    try
        if ( FileExists(fileName) ) then
        begin
            Reset(txt);
            Readln(txt, rBuf);
        end
        else
        begin
            Rewrite(txt);
        end;
        wBuf := conPassword.Text;
        Label2.Caption := '변경되라.';
        Writeln(txt, wBuf);
        Label2.Caption := '변경되었습니다.';
        closeFile(txt);
   지금 제가 짠 소스인데 read, write가 동시에 안되더라구요...
   어떻게 한 파일에 읽고 쓰는 방법이 없을까요...
			 
	
	
    
    
	
	
    
    
    
아래의 소스대로 한다면 텍스트 파일안에 계속 Append 되어 Write가 되겠군요.