有关指针的难题 (50分)

有下列语句:
var
r1,r2:integer;
tmpStrings,tmpStrings2:TStrings;
procedure form1.button1.button1click()
begin
tmpStrings := TStringList.Create;
tmpStrings2 := TStringList.Create;

tmpStrings.text:=memo1.lines.text;
tmpStrings2.text:=memo1.lines.text;

for r1:=memo1.lines.count-1 downto 0 do
for r2:=memo2.lines.count-1 downto 0 do
CombStr:=tmpStrings[r1]+' '+tmpStrings2[r2];

请问如何能将上面的字符串类型该成用指针表示?

你这代码能运行吗？？？？？

社么意思？？？

为何要改？那TStrings怎么处理？