memo.Lines.BeginUpdate;
for i:1 to memo.lines.count do begin  
  memo.line[i]:='''' memo.line[i] '''';
end;
memo.Lines.EndUpdate;

procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
  i: integer;
begin
  sl := TStringList.Create;
  try
    sl.Assign(Memo1.Lines);
    for i := 0 to sl.Count -1 do
      sl.Strings[i] := ''''   sl.Strings[i]   '''';
    Memo1.Lines.Assign(sl);
  finally
    sl.Free;
  end;
end;

var
    i: integer;
    L: TStringList;
begin
    L := TStringList.Create;
    try
        L.Assign(Memo1.Lines);
        for i := 0 to L.Count-1 do
            L[i] := ''''   L[i]   '''';
        Memo1.Lines.Assign(L);
    finally
        L.Free;
    end;
end;

  Memo1.Lines.Text := #39 StringReplace(Memo1.Lines.Text,
                      #13#10, #39#13#10#39, [rfReplaceAll]);

引言: 呵! 有默契! --- 歡迎光臨 >< face="Verdana, Arial, Helvetica">