之所以会得到这样的结果，是因为TRegEx.Replace将Input字符串中的所有匹配项替换为Replacement字符串。
如果您只想替换第一个匹配项，则需要使用TRegEx.Replace的重载版本，该版本还允许您传递Count参数，使用该参数可以控制要替换的匹配项的数量。
由于TRegEx.Replace的此重载版本被声明为属于TRegEx记录的常规函数，而不是class function，因此您必须首先声明TRegEx记录的变量，并使用TRegEx.Create设置模式和选项，然后调用Replace的相应重载版本。
因此，您的代码应该如下所示：

var RegEx: TRegEx;

result := 'DECLARE''' + #13#10 + 'DECLARE''''';
RegEx := TRegEx.Create('\A\s*DECLARE''\s*', [roIgnoreCase]);
Result := RegEx.Replace(Result,'abc',1);
ShowMessage(result);

result := 'DECLARE''' + #13#10 + 'DECLARE''''';
RegEx := TRegEx.Create('\A\s*DECLARE''\s*', [roIgnoreCase]);
Result := RegEx.Replace(Result,'',1);
ShowMessage(result);

然后，对于abc替换字符串返回abcDECLARE''，对于空替换字符串返回DECLARE''。