在Delphi中實現加密解密操作可以通過使用第三方加密庫或者自定義加密算法來實現。以下是一種常用的加密解密操作的示例代碼：

1. 使用第三方加密庫：

Delphi中可以使用開源的加密庫如DCPCrypt或者Delphi Encryption Compendium來實現加密解密操作。首先需要下載并安裝相應的庫，然后在代碼中引入相關單元。

uses
  DCPCrypt;

// 加密
function EncryptString(const AStr: string; const AKey: string): string;
var
  Cipher: TDCP_rijndael;
begin
  Cipher := TDCP_rijndael.Create(nil);
  try
    Cipher.InitStr(AKey, TDCP_sha1);
    Result := Cipher.EncryptString(AStr);
  finally
    Cipher.Free;
  end;
end;

// 解密
function DecryptString(const AStr: string; const AKey: string): string;
var
  Cipher: TDCP_rijndael;
begin
  Cipher := TDCP_rijndael.Create(nil);
  try
    Cipher.InitStr(AKey, TDCP_sha1);
    Result := Cipher.DecryptString(AStr);
  finally
    Cipher.Free;
  end;
end;

2. 自定義加密算法：

可以根據需求自定義加密解密算法，例如使用Base64編碼或者簡單的替換加密算法。以下是一個簡單的替換加密算法的示例代碼：

// 加密
function EncryptString(const AStr: string): string;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(AStr) do
    Result := Result + Chr(Ord(AStr[I]) + 1);
end;

// 解密
function DecryptString(const AStr: string): string;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(AStr) do
    Result := Result + Chr(Ord(AStr[I]) - 1);
end;

以上是在Delphi中實現加密解密操作的兩種方法，具體選擇哪種方法取決于項目需求和安全性要求。