Предотвращение дублирования записи

[Dandy777]

Продвигаюсь с небольшими костылями или с большими

Я плохо знаком с возможностями ExecProc и Open посему код на 99.9% кривой.
ExecProc возвращает RowCount но не возвращает ФИО, а Open получается возвращает ФИО но не возвращает RowCount (если я правильно выразился с терминами);

Посему у меня получается следующая проблема:
Stored Procedure

USE [PlatSys]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[EXISTS_USER] 

@LastName nvarchar(20)

AS
BEGIN

	SET NOCOUNT ON;

SELECT LastName, FirstName, MiddleName FROM Users WHERE LastName LIKE '%' + @LastName + '%' 
RETURN @@Rowcount
END

Код Delphi:

procedure TForm1.Button4Click(Sender: TObject);
var
TXT1,TXT2,TXT3 : String;
begin
DataModule1.ProcExists.Close;
DataModule1.ProcExists.ProcedureName:='EXISTS_USER';
DataModule1.ProcExists.Parameters.Refresh;
DataModule1.ProcExists.Parameters.ParamByName('@LastName').Value:=Edit1.Text;
DataModule1.ProcExists.ExecProc;
if DataModule1.ProcExists.Parameters.ParamByName('@RETURN_VALUE').Value <>0 then
begin
DataModule1.ProcExists.Close;
DataModule1.ProcExists.ProcedureName:='EXISTS_USER';
DataModule1.ProcExists.Parameters.Refresh;
DataModule1.ProcExists.Parameters.ParamByName('@LastName').Value:=Edit1.Text;
DataModule1.ProcExists.Open;
TXT1:=DataModule1.ProcExistsLastName.AsString;
TXT2:=DataModule1.ProcExistsFirstName.AsString;
TXT3:=DataModule1.ProcExistsMiddlename.AsString;
Application.MessageBox(Pchar('В базе существуют следующие пользователи'+' '+TXT1+' '+TXT2+' '+TXT3),'Проверка наличия пользователя',mb_iconWarning or mb_YesNo);

Вот такое предупреждение я вывожу, но как видно в базе таких пользователей существует 2:
1) Можно как-то в сообщении вывести 2-х пользователей или если их будет больше то всех пользователей которые подходят под запрос;
2) Можно как-то сделать так что бы текст "В базе существуют следующие пользователи" был на одной строка, а список пользователей начинался с другой строки.

[Dandy777]

2) Можно как-то сделать так что бы текст "В базе существуют следующие пользователи" был на одной строка, а список пользователей начинался с другой строки.

Остался не решенным пункт 1-й.

[Dandy777]

Задачу я решил:

procedure TForm1.Button4Click(Sender: TObject);
var
text : String;
begin
DataModule1.ProcExists.Close;
DataModule1.ProcExists.ProcedureName:='EXISTS_USER';
DataModule1.ProcExists.Parameters.Refresh;
DataModule1.ProcExists.Parameters.ParamByName('@LastName').Value:=Edit1.Text;
DataModule1.ProcExists.ExecProc;
if DataModule1.ProcExists.Parameters.ParamByName('@RETURN_VALUE').Value <>0 then
begin
DataModule1.ProcExists.Close;
DataModule1.ProcExists.ProcedureName:='EXISTS_USER';
DataModule1.ProcExists.Parameters.Refresh;
DataModule1.ProcExists.Parameters.ParamByName('@LastName').Value:=Edit1.Text;
DataModule1.ProcExists.Open;
DataModule1.ProcExists.First;
text:='В базе существуют следующие пользователи:'+#13#10;
while not DataModule1.ProcExists.Eof DO
begin
text := text +DataModule1.ProcExists.FieldByName('LastName').AsString+' '+
                     DataModule1.ProcExists.FieldByName('FirstName').AsString+' '+
                     DataModule1.ProcExists.FieldByName('Middlename').AsString+' '+#13#10;
DataModule1.ProcExists.Next;
end;
Application.MessageBox(Pchar(text),'Проверка наличия пользователя',mb_iconWarning or mb_YesNo);
end
else
ShowMessage('Пользователь с данной фамилией не обнаружен');
end;

Результат:



Всем спасибо кто откликнулся