Having Issue with my code

I wrote a piece of code to parse a widestring for anything between quotation marks and output it to 3 different memo boxes and then to a txt file. It works but a reason that I can't place, its duplicating the first 2 of the 3 fields in both cases (the memo boxes and the txt file). So for example, the output would look like this:

Box1 | Box 2           | Box 3
IP#1 | LoginName#1 | NickName#1
IP#1 | LoginName#1 | NickName#2
IP#2 | LoginName#2 | NickName#3
IP#2 | LoginName#2 | NickName#4

The same output gets sent to the text file and I can't figure it out.

I am not a very experienced programmer so go easy :), but here is the code:

AssignFile(myFile, 'C:\Logs\Log' + LogNum.Text + '.txt');
  myString := objSocket.ReceiveString();
  len := Length(myString);
  IPs.Text := '';
  User.Text := '';
  LoginM.Text := '';
  i := 0;
  count := 0;
  while i < len do
  begin
    if myString[i] = '"' then
    begin
      outString := '';
      i := i + 1;
      while myString[i] <> '"' do
      begin
        outString := outString + myString[i];
        i := i + 1;
      end;
      count := count + 1;
    end;
    case count of
      1 :
        begin
          IPs.Lines.Add(outString);
          fullString := fullString + outString + ' ';
        end;
      2 :
        begin
          User.Lines.Add(outString);
          fullString := fullString + outString + ' ';
        end;
      3 :
        begin
          LoginM.Lines.Add(outString);
          fullString := fullString + outString;
          Append(myFile);
          WriteLn(myFile, fullString);
          CloseFile(myFile);
          fullString := '';
          count := 0;
        end;
    end;
    i := i + 1;
  end;